3418
社区成员
3.3w+
社区内容
- 主页
为什么以下代码在没有窗体的程序中就会提示Handle错误
procedure CTall;
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) and isWindowVisible(hCurrentWindow) then
hCurrentWindow := GetWindow(GetDesktopWindow(), GW_HWNDNEXT);
sendMessage(hCurrentWindow,wm_sysCommand,sc_close,0);
end;
end;
用这个代码来关闭所有已打开的窗口，为什么这个代码加到一个按纽事情就可以关闭
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) and isWindowVisible(hCurrentWindow) then
hCurrentWindow := GetWindow(GetDesktopWindow(), GW_HWNDNEXT);
sendMessage(hCurrentWindow,wm_sysCommand,sc_close,0);
end;
end;
用这个代码来关闭所有已打开的窗口，为什么这个代码加到一个按纽事情就可以关闭
...全文
还没有回复，快来抢沙发～