meillo@0: unit modul_Allgemein;
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: interface//#####################################################################
meillo@0: 
meillo@0: uses shellapi, sysutils;
meillo@0: 
meillo@0: function fktCMD (const Parameternummer : integer =1): string;
meillo@0: 
meillo@0: 
meillo@0: 
meillo@0: implementation//################################################################
meillo@0: 
meillo@0: 
meillo@0: function fktCMD (const Parameternummer : integer =1): string;
meillo@0:   begin
meillo@0:     if parameternummer = 0 then
meillo@0:         fktcmd := extractfilepath(paramstr(0)) //+ '\'
meillo@0:       else
meillo@0:         fktCMD := paramstr(parameternummer);
meillo@0:   end;
meillo@0: 
meillo@0: 
meillo@0: end.//##########################################################################