Funktion erstellen

[Rackergen2]

Zitat von Matze:

Delphi-Quellcode:

...
  sl.add('[autorun]');
  sl.add('OPEN=' + app);
  sl.add('ICON=' + icon);
  if copy(destfile, length(destfile) - 4, 4) <> '.inf' then destfile := destfile + '.inf';
  ...

Warum hast du das in einer try-Klausel? Daran kann doch nix schief gehen...

Delphi-Quellcode:

function TForm1.CreateAutorunFile(app, icon, destfile: String): boolean;
var
  sl: TStringList;
begin
  result:=true;
  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';

  try
    sl.SaveToFile(destfile);
  except
    result:=false;
  end;

  sl.free;
end;

Und "den einen oder anderen Fehler" kann ich auch nicht erkennen, nur dass du da noch Leerzeichen reingeklatscht hast...

EDIT: und das -4, aber wo ist "der andere Fehler"?

PS: Wie ich diese ganze Leerzeichensetzung hasse...