cdar
annotate modul_allgemein.pas @ 0:ef71164288c1
begin of using hg for cdar
| author | "Meillo r e t u r n s <meillo@marmaro.de>" |
|---|---|
| date | Sun, 03 Dec 2006 21:54:43 +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.//########################################################################## |