Как вывести текст в окно без компонентов делфи. Только на win api

[deadh5n1]

люди подскажите как вывести текст в окно.
это надо сделать без компонентов делфи.
только на win api

[mihali4]

Вот так, например, можно:

const statID=1;
var stat: HWND;
    p: array [0..127] of Char;
begin
StrPCopy(p, 'Это - текст на форме без использования VCL');
// Создаем текстовое поле (аналог TLabel)
stat:= CreateWindowEx( 0, 'Static', '', WS_CHILD or WS_VISIBLE,
10, 46, 270, 20, Handle, statID, hInstance, nil );
SendMessage(stat, WM_SETFONT, GetStockObject(ANSI_VAR_FONT), 0 );
SetWindowText(stat, p);
end;