ShellExecute und Vordergrund

[Schwedenbitter]

Ich habe mich bemüht, mich hieran orientiert und es scheinbar zum Laufen bekommen:

Delphi-Quellcode:

Function FindHandle(Const ProcessId: THandle): HWND;

  Function EnumWindowsProc(hWnd: HWND; lParam: LPARAM): BOOL; Stdcall;
  Begin
    TList(lParam).Add(Pointer(hWnd));
    Result:=True;
  End;

Var
  hList  : TList;
  PID    : DWord;
Begin
  Result:=0;
  hList:=TList.Create;
  Try
    EnumWindows(@EnumWindowsProc, LPARAM(hList));
    While (hList.Count > 0) Do
    Begin
      If (GetWindowThreadProcessId(HWND(hList.Items[0]), @PID) > 0) And
       (ProcessId = PID) Then
      Begin
        Result:=HWND(hList.Items[0]);
        Break;
      End;
      hList.Delete(0);
    End;
  Finally
    hList.Free;
  End;
End;

FindHandle bleibt aber immer 0. Was mache ich denn nun wieder verkehrt?

[rollstuhlfahrer]

Weil du keine ProzessID bekommst. Du bekommst ein Handle auf einen Prozess zurück, welches genauso funktioniert, wie das, was OpenProcess zurückliefert.
Du könntest ja mal versuchen, deinem Programm zu sagen, dass es einfach einen Schritt nach hinten machen soll. Somit müsste automatisch das Fax-Anzeige-Programm nach vorne kommen, oder ist das noch weiter hinten? - Dann mal doch CreateProcess anschauen, weil das viel mehr möglichkeiten bietet und gar nicht so schwer ist.

Bernhard

[DeddyH]

Ich habe dazu ein kurzes Beispiel "heruntergeschlumpert" (d.h. ohne Gewähr, PID ist ein privates DWORD-Feld des Formulars):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  ZeroMemory(@StartupInfo,SizeOf(StartupInfo));
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOW;
  if CreateProcess(nil, 'calc.exe', nil, nil, false, CREATE_NEW_CONSOLE or
                   NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
    try
      PID := ProcessInfo.dwProcessId;
    finally
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    end;
end;

function EnumWindowsProc(Wnd: HWnd; aPID: DWORD): BOOL; stdcall;
var hProcess: DWORD;
begin
  GetWindowThreadProcessID(Wnd,hProcess);
  Result := hProcess <> aPID;
  if not Result then
    SetForegroundWindow(Wnd);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if PID <> 0 then
    EnumWindows(@EnumWindowsProc,PID);
end;

[edit] Wobei das zu Problemen führen kann, wenn der Prozess mehrere Fenster geöffnet hat, da ich einfach das zuerst gefundene nach vorn hole und dann aus der Schleife austrete. Vermutlich gibt es einen Weg, das MainForm zu ermitteln, leider kenne ich ihn nicht [/edit]