cdar

annotate modul_allgemein.pas @ 1:87b91371db05

removed files from hg-test
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:56:21 +0100
parents
children
rev   line source
meillo@0 1 unit modul_Allgemein;
meillo@0 2
meillo@0 3
meillo@0 4
meillo@0 5 interface//#####################################################################
meillo@0 6
meillo@0 7 uses shellapi, sysutils;
meillo@0 8
meillo@0 9 function fktCMD (const Parameternummer : integer =1): string;
meillo@0 10
meillo@0 11
meillo@0 12
meillo@0 13 implementation//################################################################
meillo@0 14
meillo@0 15
meillo@0 16 function fktCMD (const Parameternummer : integer =1): string;
meillo@0 17 begin
meillo@0 18 if parameternummer = 0 then
meillo@0 19 fktcmd := extractfilepath(paramstr(0)) //+ '\'
meillo@0 20 else
meillo@0 21 fktCMD := paramstr(parameternummer);
meillo@0 22 end;
meillo@0 23
meillo@0 24
meillo@0 25 end.//##########################################################################