Thema: Delphi Funktion erstellen

Einzelnen Beitrag anzeigen

Rackergen2

Registriert seit: 13. Jul 2004
99 Beiträge
 
Delphi 7 Enterprise
 
#19

Re: Funktion erstellen

  Alt 19. Jul 2004, 20:52
Delphi-Quellcode:
function TForm1.createautorunfile(app : String; icon : String; destfile : String):boolean;
var
 sl : TStringList;
begin
  result:=true;
  try
    sl:=TStringList.create;
    sl.add('[autorun]');
    sl.add('OPEN=' + app);
    sl.add('ICON=' + icon);
    sl.SaveToFile(destfile+'.inf');
  except
    result:=false;
  end;
end;

end.
So kommt es besser...