lav en lille kode om

hmm.. kan du ikke bruge sleep?

Memo1.Lines.SaveToFile('tmp.bat');
ShellExecute(0, 'open', 'tmp.bat', nil, nil, SW_SHOWNORMAL);
Sleep(5000);
DeleteFile('tmp.bat');

kan ikke bruge den da det er foreskelligt hvorlang tid filen er i brug

OnClick: Memo1.Lines.SaveToFile('tmp.bat');
ShellExecute(0, 'open', 'tmp.bat', nil, nil, SW_SHOWNORMAL);

OnExit:DeleteFile('tmp.bat');

når focus forlades fra knappen, slettes tmp.bat

retunere ShellExecute ikke et WindowHandle??
hvis den gør det skal du jo bare vente med at slette filen til dette handle er væk...

du kan jo også lede efter handlet hvis den ikke retunere et

hvorfor ikke bare slette filen når programmet afsluttes?

stone> onexit vil ikke virke

var ikke noget jeg kunne bruge

den virker hos mig...nå men hvorfor ikke sætte koden ind i oncreate
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.SaveToFile('tmp.bat');
ShellExecute(0, 'open', 'tmp.bat', nil, nil, SW_SHOWNORMAL);
end;

og bruge knappen til at slette den bagefter.

procedure ExecWait(AppName, CmdLine: string);
var
  zAppName: array[0..512] of char;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  try
    StrPCopy(zAppName, AppName);

    FillChar(StartupInfo, Sizeof(StartupInfo), #0);
    StartupInfo.cb := Sizeof(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_HIDE;

    Win32Check(CreateProcess(zAppName,
      PChar(CmdLine),
      nil,
      nil,
      False,
      CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      StartupInfo,
      ProcessInfo));

    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    TerminateProcess(ProcessInfo.hProcess, 0);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  except
    on E: EWin32Error do
      ShowMessage(E.Message);
  end;
end;

var
  TempName: String;
begin
  TempName := ExcludeTrailingBackSlash(ExtractFilePath(Application.ExeName))+'\tmp.bat';
  Memo1.Lines.SaveToFile(TempName);
  ExecWait('tmp.bat', TempName);
  DeleteFile(TempName);
end;