Привет.
[/CODE]
function EnumWindowsProc(hwnd: DWord; lparam : DWord):Boolean;
var
NameArray : array[0..255] of Char;
WndName : PChar;
TextLength,b : DWord;
begin
WndName:=NameArray;
TextLength:=GetWindowTextLength(hwnd);
GetWindowText(hwnd, WndName, TextLength);
result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc, 0);
end;
[CODE]
Я так понимаю в WndName должно быть название окна. Вместо этого я после GetWindowTextLength получаю "Ошибка 1400: неверный дескриптор окна". В чем ошибка?

Надо так:
function EnumWindowsProc(hwnd: DWord; lparam : DWord):Boolean; stdcall;

Фанкс.