Nicht modales Fenster reagiert nicht mehr

[Luckie]

Habe eine Lösung gefunden:

Delphi-Quellcode:

procedure WaitThread(ThreadFunc: TThreadFunc; Params: Pointer; Info: TWaitInfo);
var
  hWaitDlg          : THandle;
  hThread           : THandle;
  ThreadID          : Cardinal;
  ExitCode         : DWORD;
begin
  EnableWindow(Info.hParent, False);
  hWaitDlg := CreateDialogParam(hInstance, MAKEINTRESOURCE(500), Info.hParent, @waitdlgproc, Integer(@Info));

  hThread := BeginThread(nil, 0, @ThreadFunc, Params, 0, ThreadID);
  repeat
    GetExitCodeThread(hThread, ExitCode);
    ProcessMessages(hWaitDlg);
    ProcessMessages(info.hParent);
    sleep(1);
  until ExitCode = 0;
  DestroyWindow(hWaitDlg);
  EnableWindow(info.hParent, True);
end;