Funktion erstellen

[Rackergen2]

Zitat von Matze:

if copy(destfile,length(destfile-4),4)<>'.inf' then destfile:=destfile+'.inf'; Gefällt mir so besser:

if not Pos('.inf', destfile) > 0 then destfile := destfile + '.inf'; Aber das spielt ja auch keine große Rolle.

Denkste! Lass mal die Datei so heißen: 'C:\test\test.inf.txt' Du musst schon dafür sorgen, dass das .inf hinten ist... höchstens so:

if Pos('.inf', destfile)<length(destfile)-4 then destfile:=destfile+'.inf';

Delphi-Quellcode:

function TForm1.createautorunfile(app : String; icon : String; 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;

  s1.free;
end;