unit modul_Allgemein;



interface//#####################################################################

uses shellapi, sysutils;

function fktCMD (const Parameternummer : integer =1): string;



implementation//################################################################


function fktCMD (const Parameternummer : integer =1): string;
  begin
    if parameternummer = 0 then
        fktcmd := extractfilepath(paramstr(0)) //+ '\'
      else
        fktCMD := paramstr(parameternummer);
  end;


end.//##########################################################################