Problem: Manchmal funktioniert es, manchmal nicht

[robinWie]

Zitat:

das Ziehen des Punktes.

@ chosben: ich nehme an du meinst damit das man den Punkt über Bildschirm bewegen kann, ich würde voschlagen den Roten Punkt als Tray darzustellen. Dann ist er nicht ständig im Weg.

Ich habe auch mal ein ähnliches Programm geschrieben bei mir funktioniert das ohne Probleme. Ich verwend zum öffnen von Dateien bzw. Programm diese Procedure

Delphi-Quellcode:

procedure TMainForm.ExecuteProgramm(const PFileName: string);
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
  ExecuteFile, ParamString, StartInString: string;
begin
  ExecuteFile:=PFileName;
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    nShow := SW_SHOWNORMAL;
  end;
  if ShellExecuteEx(@SEInfo) then begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or //<- Hier würde ich hinschreieben Application.Terminated=False;
      Application.Terminated; //edit: und das hier löschen
  end
  else begin
  Application.MessageBox('Fehler beim Starten des Programms',
  'Programm Starten',
  mb_OK+mb_IconError);
  end;
end;