Funktion erstellen

[Matze]

Zitat von onlinehome:

Delphi-Quellcode:

procedure TForm1.createautorunfile(app : String; icon : String; destfile : String);
var
 sl : TStringList;
begin
   sl:=TStringList.create;
   sl.add('[autorun]');
   sl.add('OPEN=' + app);
   sl.add('ICON=' + icon);
   sl.SaveToFile(destfile+'.inf');
   ShowMessage('Finished!');
end;

Meint ihr meine kleine Procedure soll in die CodeLib. Net wirklich, oder?

Ähm, nö, net wirkluich.