我有一個程式需要取得WINDOWS現在所有執行的程式名稱，
目前參考
http://delphi.ktop.com.tw/board.php?cid=16&fid=43&tid=18901
可以做出我要的效果，
但是如果我想把程式改成console application的方式，
GetWindow無法取得其他視窗的資訊，
不知道要怎麼修改才有辦法運作？

Try it !
program console1;
{$APPTYPE CONSOLE}
uses
SysUtils,windows, Messages, Controls, Forms;
var
HCurrentWindow: HWND;
szText: array[0..254] of char;
begin
HCurrentWindow := GetForegroundWindow();
while HCurrentWindow <> 0 do
begin
if GetWindowText(HCurrentWindow, @sztext, 255) > 0 then
writeln(Strpas(@szText));
HCurrentWindow := GetWindow(HCurrentWindow, GW_HwndNext);
end;
end.
===================引 用 duckegg 文 章===================
我有一個程式需要取得WINDOWS現在所有執行的程式名稱，
目前參考
http://delphi.ktop.com.tw/board.php?cid=16&fid=43&tid=18901
可以做出我要的效果，
但是如果我想把程式改成console application的方式，
GetWindow無法取得其他視窗的資訊，
不知道要怎麼修改才有辦法運作？

------
What do we live for if not to make life less difficult for each other?