1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/modul_allgemein.pas	Sun Dec 03 21:54:43 2006 +0100
     1.3 @@ -0,0 +1,25 @@
     1.4 +unit modul_Allgemein;
     1.5 +
     1.6 +
     1.7 +
     1.8 +interface//#####################################################################
     1.9 +
    1.10 +uses shellapi, sysutils;
    1.11 +
    1.12 +function fktCMD (const Parameternummer : integer =1): string;
    1.13 +
    1.14 +
    1.15 +
    1.16 +implementation//################################################################
    1.17 +
    1.18 +
    1.19 +function fktCMD (const Parameternummer : integer =1): string;
    1.20 +  begin
    1.21 +    if parameternummer = 0 then
    1.22 +        fktcmd := extractfilepath(paramstr(0)) //+ '\'
    1.23 +      else
    1.24 +        fktCMD := paramstr(parameternummer);
    1.25 +  end;
    1.26 +
    1.27 +
    1.28 +end.//##########################################################################