Получить заголовки главных окон

[AlexandrSid]

Пытаюсь получить текст заголовка всех главных окон, но почему-то при считывании (if GetWindowText(hWindow,s,SizeOf(s))< >0 then) всегда возвращает 0 байт. Подскажите что делаю не так.

function EnumListOfTasks(hWindow: hWnd): Bool;
var
  s:array[0..255] of Char;
  i:integer;
begin
  if GetWindowText(hWindow,s,SizeOf(s))<>0 then
    Form1.ListBox1.items.add(StrPas(s));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Clear;
  enumWindows(@EnumListOfTasks, Longint(Self));
end;

[spamer]

Вот что нашел на delphiworld.narod.ru

 function NT_InternalGetWindowText(Wnd: HWND): string;
 type
   TInternalGetWindowText = function(Wnd: HWND; lpString: PWideChar;
     nMaxCount: Integer): Integer;
    stdcall;
 var
   hUserDll: THandle;
   InternalGetWindowText: TInternalGetWindowText;
   lpString: array[0..MAX_PATH] of WideChar; //Buffer for window caption
  oemStr: PChar;
 begin
   Result   := '';
   hUserDll := GetModuleHandle('user32.dll');
   if (hUserDll > 0) then
   begin @InternalGetWindowText := GetProcAddress(hUserDll, 'InternalGetWindowText');
     if Assigned(InternalGetWindowText) then
     begin
       InternalGetWindowText(Wnd, lpString, SizeOf(lpString));
       Result := string(lpString);
     end;
   end;
 end;

Использовать например так

ShowMessage(NT_InternalGetWindowText(Handle));

[Ring0Sn]

function EnumListOfTasks(hWindow: hWnd): Bool;
var
s:array[0..255] of Char;
i:integer;
begin
if GetWindowText(hWindow,s,SizeOf(s))< >0 then
Form1.ListBox1.items.add(StrPas(s)) ;
end;

Ну во первых callback, а значит stdcall;
Во вторых, пока перечисляем, Result := true;
(см. MSDN http://msdn.microsoft.com/en-us/library/ms633497.aspx)

function EnumListOfTasks(hWindow: hWnd; lParam : LPARAM): Bool; stdcall;
var
  s:array[0..255] of Char;
  i:integer;
begin
  if GetWindowText(hWindow,s,SizeOf(s))<>0 then
    Form1.ListBox1.items.add(StrPas(s));
  Result := true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Clear;
  EnumWindows(@EnumListOfTasks, Longint(Self));
end;

[AlexandrSid]

Спасибо огромное Ring0Sn

[SERG1980]

procedure TForm2.Button2Click(Sender: TObject);
var wh:hwnd;
     s:array[0..255] of Char;
begin
wh:=handle;
repeat
 wh:= getnextwindow(wh,GW_HWNDNEXT);
 if (getparent(wh)=0) then//главное окно
 begin
  GetWindowText(wh,s,SizeOf(s));
  listbox1.Items.Add(s);
 end;
until wh=0;
end;