为什么以下代码在没有窗体的程序中就会提示Handle错误

[ye12]

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;


用这个代码来关闭所有已打开的窗口，为什么这个代码加到一个按纽事情就可以关闭

[s11ss]

Handle是个属性，加到按钮事件的时候，被编译器解释为Self.Handle

[ye12]

那我这个控制台的程序，这里要如何改呢

[s11ss]

hCurrentWindow := GetWindow(GetDesktopWindow(), GW_HWNDFIRST);

[s11ss]

把Handle改成GetDesktopWindow()

[ye12]

改成这样，hCurrentWindow := GetWindow(GetDesktopWindow(), GW_HWNDFIRST);，可以编译运行，但是还是不会把打开的窗口关闭呢，我想要的结果是自动关闭已打开的所有窗口。

[ye12]

高手还在放假吗，那位指点一下