Название окна приложения

[King Nothing]

Не пойму почему не могу получить название окна приложения.
В списке отображается указатель на окно (не пустой), а название окна не получается.

var
  Wnd      : HWnd ;
  WndName  : String;
begin
  Wnd := FindWindow(nil,'Документ1 - Microsoft Word');
  NamesListBox.Items.Add(IntToStr(Wnd));
  GetWindowText(Wnd,PChar(WndName),255);
  NamesListBox.Items.Add(WndName);

[BOBAH13]

It's from MSDN:

GetWindowText Function

--------------------------------------------------------------------------------

The GetWindowText function copies the text of the specified window's title bar (if it has one) into a buffer. If the specified window is a control, the text of the control is copied. However, GetWindowText cannot retrieve the text of a control in another application.

Syntax

int GetWindowText( HWND hWnd,
LPTSTR lpString,
int nMaxCount
);
Parameters

hWnd
[in] Handle to the window or control containing the text.
lpString
[out] Pointer to the buffer that will receive the text. If the string is as long or longer than the buffer, the string is truncated and terminated with a NULL character.
nMaxCount
[in] Specifies the maximum number of characters to copy to the buffer, including the NULL character. If the text exceeds this limit, it is truncated.
Return Value

If the function succeeds, the return value is the length, in characters, of the copied string, not including the terminating NULL character. If the window has no title bar or text, if the title bar is empty, or if the window or control handle is invalid, the return value is zero. To get extended error information, call GetLastError.

This function cannot retrieve the text of an edit control in another application.

[King Nothing]

Подскажите пожалуйста как тогда в этом случае получить название окна?

[rpy3uH]

вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd      : HWnd ;
  WndName  : array[0..255] of char;
begin
  Wnd := FindWindow(nil,'Документ1 - Microsoft Word');
  GetWindowText(Wnd,@WndName,255);
  NamesListBox.Items.Add(WndName);
end;

[joker]

в EnumWindowsProc (при перечислении всех окон) вызываю GetWindowText что абсолютно также как у Грузина написана (я имею ввиду способ представления строковой переменной) и все время результат функции ноль, и ниче в строку не возвращает. В чем дело?

[rpy3uH]

так у всех окон? давай сюда код

[joker]

function EnumWindowProc(h: hwnd; lparam: integer): boolean;
var s: array [0..255] of char; 
...
begin
 result := true;
 if (GetWindowText(h,@s,255) = 0) or (string(s) = '') then exit;
 ...
 ///Код дальше никогда не выполняется
end;

[rpy3uH]

функцию надо объявлять так
function EnumWindowProc(h: hwnd; lparam: integer): boolean; stdcall;

[joker]

мдаа, тяжелый случай (это надо давно не программить)))