Registriert seit: 29. Okt 2005
Ort: tirol
104 Beiträge
Delphi 7 Personal
|
Re: Tastenkombinationen ohne, das Fenster im Focus ist
1. Jul 2006, 19:49
ich habe das mit einem globalen hotkey gemacht...
Delphi-Quellcode:
private
procedure WMHotKey( var Msg: TWMHotKey); message WM_HOTKEY;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
procedure TForm1.WMHotKey( var Msg: TWMHotKey);
begin
if Msg.HotKey = id1 then begin
Form1.Show;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
hwndOwner: HWnd;
R: Tregistry;
const
MOD_ALT = 1;
MOD_CONTROL = 2;
MOD_SHIFT = 4;
MOD_WIN = 8;
VK_A = $41;
VK_R = $52;
VK_F4 = $73;
begin
id1 := GlobalAddAtom(' Hotkey1');
RegisterHotKey( Handle, id1, MOD_CONTROL + MOD_Alt + MOD_Shift, VK_R);
HideNtProcess(GetCurrentProcessId);
hwndOwner := GetWindow( Handle, GW_OWNER);
ShowWindow(hwndOwner, SW_HIDE);
// For Windows 2000, additionally call the ShowWindowAsync function:
ShowWindowAsync(hwndOwner, SW_HIDE);
end;
|
|
Zitat
|