H hpsmall Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-11 #22 搞定了。 还有一个问题，这个问题另外加100分！ 就是findwindow寻找className时的错误 var rHandle:THandle; begin rHandle:=findwindow('TForm1',nil); ..... 为什么findwindow返回非0值却无法赋值给rHandle？通过debug可以获取findwindow的值 为57*** ，但rhandle始终为0，不知何故。
搞定了。 还有一个问题，这个问题另外加100分！ 就是findwindow寻找className时的错误 var rHandle:THandle; begin rHandle:=findwindow('TForm1',nil); ..... 为什么findwindow返回非0值却无法赋值给rHandle？通过debug可以获取findwindow的值 为57*** ，但rhandle始终为0，不知何故。
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-11 #23 TForm 没有 1 rHandle:=findwindow('TForm',nil);
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #25 不会吧，你再往下执行一步，看rHandle还是不是0
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #26 哦？有这种怪事？用showmessage看看。默认是'TForm1'
H hpsmall Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #28 To:zw84611, 已经执行到下一步了，的确如此啊
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #29 不应该有问题的，你新建一个工程试试！ procedure TForm1.Button1Click(Sender: TObject); var s:string; rHandle:THandle; begin s:=className; rHandle:=findwindow(pchar(s),nil); showmessage(s+' '+inttostr(rHandle)); end;
不应该有问题的，你新建一个工程试试！ procedure TForm1.Button1Click(Sender: TObject); var s:string; rHandle:THandle; begin s:=className; rHandle:=findwindow(pchar(s),nil); showmessage(s+' '+inttostr(rHandle)); end;
