Hallo,
die folgenden Möglichkeiten setzen voraus, dass Du das Handle des Programmes hast, dass Du nach vorne drücken möchtest:
da gibts die folgenden Funktionen die aber nicht bei allen Windowsversionen so ganz richtig funktinieren:
Delphi-Quelltext
1:
2:
3:
| SETFOREGROUNDWINDOW(Handle);
BringWindowToTop(Handle); |
Und es gibt eine Prozedur, von der ich leider nicht mehr weiß von wo ich sie habe:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| Procedure ForceForegroundWindow(hwnd: THandle);
Var
hlp: TForm;
Begin
hlp := TForm.Create(Nil);
Try
hlp.BorderStyle := bsNone;
hlp.SetBounds(0, 0, 1, 1);
hlp.FormStyle := fsStayOnTop;
hlp.Show;
mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
SetForegroundWindow(hwnd);
Finally
hlp.Free;
End;
End; |
Gruß
Bernhard
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
