Vente på program, som kører i forvejen

Kan du ikke kalde MediaPlayeren selv og lade den vente på at programmet afsluttes? Eller har jeg misforstået dit spørgsmål?

Omformuleret: Kan du ikke kalde MediaPlayeren i dit program og lade det vente på at den afslutter? Der må være et API til det %¤!"&#¤& program. Det vil man nok kunne støve op på MSDN.

i noget kode jeg bruger til at exec and wait på et program bruger jeg <> WAIT_OBJECT_0
i stedet for infinite, det virker ganske ude mærket :)

dette er godt nok kode beregnet til selv at starte et program, men tænkte at det kunne være brugbart efter som det benytter WaitForSingleObject  :)

uses
  ShellApi;

procedure ShellExecute_AndWait(FileName: string; Params: string);
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    ExInfo.lpVerb := 'open';
    ExInfo.lpParameters := PChar(Params);
    lpFile := PChar(FileName);
    nShow := SW_SHOWNORMAL;
  end;
  if ShellExecuteEx(@exInfo) then
    Ph := exInfo.HProcess
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
    Application.ProcessMessages;
  CloseHandle(Ph);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute_AndWait('FileName', 'Parameter');
end;

psycosoft-funware >> jeg kan desværre ikke få det til at virke

det eneste, jeg kan finde på, er det her, men jeg bryder mig ikke videre om den måde at programmere på

while true do
begin
  if FindWindow(nil, 'Windows Media Player') = 0 then
    Exit
  else
    Sleep(1000);
end;

Ps: waitforsingleobject() returnerer wait_failed, så måske er det slet ikke findwindow, som skal anvendes eller også kan det måske kun lade sig gøre, hvis man selv har startet programmet?

alternativet kunne være at du laver det fx sådan her:

function CeckWmpRunning: Boolean;
begin
  if FindWindow(nil, 'Windows Media Player') = 0 then
    Result := True
  else
    Result := False;
end;


Timer1.OnTimer:

begin
case CheckWmpRunning of
True: begin
  //Do SOmething
      end;
False: begin
    //Do Somthing Else
      end;
end;
end;

:)

Med al respekt, men er det ikke lidt det samme?

Det jeg gerne ville var at undgå at kontrollere hele tiden, men i stedet gå videre lige så snart programmet afsluttes

Lukker