genstart applikation

procedure TForm1.Button1Click(Sender: TObject);
var FullProgPath: PChar;
si: TStartupInfo;
pi: TProcessInformation;
begin
FullProgPath := PChar(Application.ExeName);

Application.Terminate; Application.ProcessMessages;
Application.HandleMessage;

FillChar(si, sizeof(si), 0);
si.cb := sizeof(si);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_HIDE;
CreateProcess(nil, pchar(FullProgPath), nil, nil, false,
NORMAL_PRIORITY_CLASS, nil, nil, si, pi);
end;

eller

procedure TForm1.Button1Click(Sender: TObject);
var
  FullProgPath: PChar;
begin
  FullProgPath := PChar(Application.ExeName);
  // ShowWindow(Form1.handle,SW_HIDE);
  WinExec(FullProgPath, SW_SHOW); // Or better use the CreateProcess function
  Application.Terminate; // or: Close;
end;

Fundet på http://www.swissdelphicenter.com/en/showcode.php?id=453

mange tak