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.