获得一个已知标题的窗口的句柄怎么写？谢谢！(100分)

wujingping · 2003-05-23

如何获得一个已知标题的窗口的句柄！

thx1180 · 2003-05-23

FindWindow(nil, 'FormCaption');

seeyouknowme · 2003-05-23

GetWindowText(Form1.Handle,TheText,TextLen+1); 得到窗口TITLE

道长 · 2003-05-23

shell~ · 2003-05-23

var
H:THandle;
begin
H:=FindWindow(nil, '我的电脑');
end;

任豆豆 · 2003-05-23

var
H:THandle;
begin
H := FindWindow(nil,pchar(edit1.text));
if H > 0 then showmessage('存在');
end;

wujingping · 2003-05-23

谢谢已经搞定！
var
f:integer;
begin
f:=FindWindow('ImLWinCls','Capture');
if f<>0 then
ShowMessage(inttostr(f));
end;
end.

_ccc · 2003-07-14

试试FindWindow(nil,'已知标题')中不

kimlon · 2003-07-14

if f<>0 then
用sendmessage可将他关闭。

不知道_0909 · 2003-07-14

这是一个关闭应用程序的函数，可以获得窗口的句柄，
function TMainForm.CloseProgram: Boolean;
var
hWndClose : HWnd;
begin
hWndClose := FindWindow(pchar('RFTPSWindow'), nil);
while hWndClose<> 0 do
begin
if hWndClose <> 0 then
begin
SendMessage(hWndClose, WM_CLOSE, 0, 0);
Result := True;
end else
Result := False;
hWndClose := FindWindow(pchar('RFTPSWindow'), nil);
end;
end;

chnplzh · 2003-07-14

TO wujingping：
“ f:=FindWindow('ImLWinCls','Capture');”不保险，
万一两个窗口标题一样，那该怎么办？
好象还真不好解决！

wmstudio · 2003-07-14

注意FindWindow函数在不同的windows平台有时不灵。这是血的教训！！！！
比如在win2000上，该API估计微软改动过了，win98 上能用

获得一个已知标题的窗口的句柄怎么写？谢谢！(100分)

wujingping

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

seeyouknowme

Unregistered / Unconfirmed

道长

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

任豆豆

Unregistered / Unconfirmed

wujingping

Unregistered / Unconfirmed

_ccc

Unregistered / Unconfirmed

kimlon

Unregistered / Unconfirmed

不知道_0909

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

wmstudio

Unregistered / Unconfirmed

Similar threads