Delphi Funktion erstellen

Thema durchsuchen

Ansicht

Themen-Optionen

Funktion erstellen

Ein Thema von Andreas L. · begonnen am 19. Jul 2004 · letzter Beitrag vom 21. Jul 2004

Vorheriger Beitrag

Nächster Beitrag

Rackergen2

Registriert seit: 13. Jul 2004
99 Beiträge

Delphi 7 Enterprise

#11

Re: Funktion erstellen

19. Jul 2004, 19:56

zusammenfalten · markieren

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);

    if copy(destfile,length(destfile-4),4)<>'.inf' then destfile:=destfile+'.inf';

    sl.SaveToFile(destfile);

    s1.free;

  except

    result:=false;

  end;

end;

end.

So besser?