N
nfy
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么样编程实现获得任务栏上所有窗口句柄?最好有代码，我是新手
J
jeary
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tform1.getname;<br>var<br>hCurrentWindow: HWnd;<br>szText: array[0..254] of char;<br>sef:string;<br>begin<br>hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);<br>while hCurrentWindow <> 0 do<br>begin<br>if GetWindowText(hCurrentWindow, @szText, 255)>0 then<br> Memo1.Lines.Add(StrPas(@szText));<br> hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);<br>end;<br>
J
jeary
Unregistered / Unconfirmed
GUEST, unregistred user!
把分給了吧
]
]
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
能说说你的用处么<br>如果只是列出在上面运行的程序名<br>上面的已达到要求了<br>还有其它方法
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
jeary 真快啊！！！！
胖
胖的
Unregistered / Unconfirmed
GUEST, unregistred user!
int CALLBACK EnumExe(HWND hwnd, LPARAM lParam)<br>{<br> WINDOWINFO windowinfo;<br> if(GetWindowInfo(hwnd, &windowinfo))<br> {<br> if ((windowinfo.dwStyle & 0x14CF0000) == 0x14CF0000)<br> {<br> char lpString[255];<br> // n++;<br> GetWindowText(hwnd, lpString, 255);<br> sprintf(g_lpAppInfo + strlen(g_lpAppInfo), "%s,", lpString);<br> }<br> }<br><br> return true;<br>}<br><br>EnumWindows((WNDENUMPROC)EnumExe,0);
N
nfy
Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, StdCtrls, Buttons;<br><br>type<br> TForm1 = class(TForm)<br> BitBtn1: TBitBtn;<br> ComboBox1: TComboBox;<br> procedure BitBtn1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br>function GetText(Wnd : HWND) : string;<br>var<br> textlength : integer;<br> text : PChar;<br>begin<br> textlength:=SendMessage(Wnd,WM_GETTEXTLENGTH,0,0);<br> if textlength=0 then<br> Result := ''<br> else begin<br> getmem(text,textlength+1);<br> SendMessage(Wnd,WM_GETTEXT,textlength+1,Integer(text));<br> Result:=text;<br> freemem(text);<br> end;<br>end;<br><br>function EnumWindowsProc (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;<br>var<br> s : String ;<br>begin<br> Result := True;<br> if (IsWindowVisible(Wnd)) and (GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) and (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin<br>// s := ''+Inttostr(Wnd)+', '+ GetText(Wnd) ;<br> s := GetText(Wnd) ;<br> Form1.Combobox1.items.add(s);<br> end;<br>end;<br><br>procedure TForm1.BitBtn1Click(Sender: TObject);<br>var<br> Param : Longint;<br>begin<br> Combobox1.Items.Clear;<br> Param := 0 ;<br> EnumWindows(@EnumWindowsProc , Param);<br>end;<br>这才是解决之道，可惜没发给自己加分阿，我以解决了
N
nfy
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。