Funktion erstellen

[Rackergen2]

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?