Funktion erstellen

[Matze]

Hmm, stimmt, an so einen "Sonderfall" habe ich nicht gedacht.

Nur sollte man noch die Resourcenschutzblöcke einbauen:

Delphi-Quellcode:

function TForm1.CreateAutorunFile(app, icon, destfile: String): boolean;
var
  sl: TStringList;
begin
  result := true;
  sl := TStringList.create;
  try
    sl.add('[autorun]');
    sl.add('OPEN=' + app);
    sl.add('ICON=' + icon);
    if copy(destfile, length(destfile) - 4, 4) <> '.inf' then destfile := destfile + '.inf';
    try
      sl.SaveToFile(destfile);
    except
      result:=false; 
    end;
  finally
    sl.free;
  end;
end;

Ich hab auch noch den ein oder anderen Fehler verbessert, dein Code lies sich nicht kompilieren.

Eines darf man nicht vergessen:
Wenn ich nun den Pfad und das Icon angebe, so habe ich den kompletten Pfad beider in der Ini, was natürlich Mist ist.
Nacher befinden sich die Anwendung und das Icon (im Normalfall) auf der CD, somit stimmen die Pfade nicht mehr!
Man musste Icon und Anwendung in den Projektordner geben und dann die relativen Pfade (Anwendung + ggf. Ordnername) in die inf-Datei eintragen.