我想做个查询自定义窗口是否存在的小程序，通过用户自己输入窗口的类名和标题，然后软件就可以查询该窗口是否存在，但不知道怎么样在FINDWINDOW后面调用窗口中用户自己输入的类名和标题，源代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hwq:HWND;
Pid:Dword;
tt:Cardinal;
ss:string;
leim:string;
chuangk:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
leim:=(Edit1.Text);
hwq:=Findwindow('IEFrame','欢迎来到游戏茶苑 - Microsoft Internet Explorer');//#32770 是对话框窗口类的参数，第二个是窗口名称
//游戏茶苑的登录窗口没有名字，可以用 '' ，把相应的提示字符修改成想看到的字样
if hwq = 0 then label1.Caption:=('未发现想检测的窗口')
else
label1.Caption:=('发现关注的窗口');
end;
end.
參考答案:hwq:=Findwindow('IEFrame','欢迎来到游戏茶苑 - Microsoft Internet Explorer');//#32770 是对话框窗口类的参数，第二个是窗口名称
这个地方啊
hwq:=Findwindow(pchar(Edit1.text),pchar(Edit2.text));
其中Edit1用来输入窗体类的名称，Edit2用来输入窗口的标题，两都只需要添一个就可以了，剩下那个用nil来替换如下：
hwq:=Findwindow(pchar(Edit1.text),nil);
