1,183
社区成员
发帖
与我相关
我的任务
分享如果只得到任务栏窗口的标题!
现在做的这程序,得到了很多无用的窗口.能不能只得到显示在任务栏的窗口?
我原来的程序如下:
procedure TForm1.Button3Click(Sender: TObject);
var
hCurrentWindow: HWnd;
szText: array[0..254] of char;
begin
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow, @szText, 255)>0 then
begin
inc(ii);
form1.Edit1.Text:=inttostr(ii);
form1.Memo1.Text:=form1.Memo1.Text+chr(13)+chr(10)+inttostr(ii)+'--'+sztext;
end;
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
在此在先谢
我原来的程序如下:
procedure TForm1.Button3Click(Sender: TObject);
var
hCurrentWindow: HWnd;
szText: array[0..254] of char;
begin
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow, @szText, 255)>0 then
begin
inc(ii);
form1.Edit1.Text:=inttostr(ii);
form1.Memo1.Text:=form1.Memo1.Text+chr(13)+chr(10)+inttostr(ii)+'--'+sztext;
end;
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
在此在先谢
...全文
请发表友善的回复…
发表回复
programgirl 2005-05-16
- 打赏
- 举报
hCurrentWindow := GetACTIVEWindow();
.
.
.
hCurrentWindow:=GetNextWindow(hCurrentWindow,gw_hwndnext);
...
.
.
.
hCurrentWindow:=GetNextWindow(hCurrentWindow,gw_hwndnext);
...
飞天凤凰601 2005-05-16
- 打赏
- 举报
顶.............
