在Delphi中怎样才可以得到Windows中当前活动窗体的Handle?(100分)

dreamdelphi · 2001-12-07

在Delphi中怎样才可以得到Windows中当前活动窗体的Handle?[?]

dcsdcs · 2001-12-07

vc有GetActiveWindow函数，没有查过delphi

littlefish · 2001-12-07

delphi一样，因为GetActiveWindow是API。

maming · 2001-12-07

procedure TForm1.Button1Click(Sender: TObject); var    TheWindow: HWND;                   // this will hold the active window handle    WindowText: array[0..255] of char; // this will hold the text of that window begin    {get the handle to the active window associated with this thread}    TheWindow:=GetActiveWindow;    {get the text of that window}    GetWindowText(TheWindow,WindowText,255);    {display the text}    Label1.Caption:='Active Window Text: '+string(WindowText); end;

dreamdelphi · 2001-12-07

那么怎样才能得到输入法的Handle呢？比如微软ABC，（我想做一个虚拟键盘来控制输入法）

duckdo · 2001-12-07

用GetForegroundWindow得到Windows中当前活动窗体； ---- 常用函数有： API函数：BOOL ImmSimulateHotKey (HWND hWnd,DWORD dwHotKeyID);//模拟热键 其中Hwnd为程序窗口的句柄,dwHotHKeyID 为模拟的热键,若成功则返回True HKL GetKeyboardLayout(DWORD dwLayout); //获得当前键盘状态 BOOL ImmIsIME(HKL hKL); //判断当前是否处于中文输入状态,若是则返回True 自定义函数： 打开相应输入法：OpenIme(imename:string), 例OpenIme('全拼输入法'); 关闭中文输入法：CloseIme;

代码:

<br>procedure Tform1.OpenIme(imename:string);<br><br>var<br>I:integer;<br>myhkl:hkl;<br>begin<br>if ImeName&lt;&gt;'' then<br>begin<br>if Screen.Imes.Count&lt;&gt;0 then<br>begin<br>I:=screen.Imes.indexof(imename);<br>if I&gt;=0 then<br>&nbsp; myhkl:=hkl(screen.Imes.objects[i]);<br>&nbsp; activatekeyboardlayout(myhkl,<br>&nbsp; KLF_ACTIVATE);//设置相应的输入法<br>end;<br>end; <br>end;<br><br><br>procedure TForm1.closeime;<br><br>var<br><br>myhkl:hkl;<br><br>begin<br>&nbsp; myhkl:=GetKeyBoardLayOut(0);<br>&nbsp; if ImmIsIME(myhkl) then <br>&nbsp; //判断是否在中文状态,若是则关闭它<br>&nbsp; immsimulateHotkey(handle,<br>&nbsp; IME_CHotKey_IME_NonIME_Toggle);<br>end;<br><br>

使用时uses中加上imm

dreamdelphi · 2001-12-18

多人接受答案了。

在Delphi中怎样才可以得到Windows中当前活动窗体的Handle?(100分)

dreamdelphi

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

littlefish

Unregistered / Unconfirmed

maming

Unregistered / Unconfirmed

dreamdelphi

Unregistered / Unconfirmed

duckdo

Unregistered / Unconfirmed

dreamdelphi

Unregistered / Unconfirmed

Similar threads