нужно узнать handl главного окна. Тоесть когда программа запускается появляется дочернее окно его заголовок отличается от главного только лишнем словом (Название_программы версия). Главное же окно только Название_программы.
Если выполнить код:

var
Kep : HWND;
str : ARRAY [0..127] OF Char;
begin
repeat
Kep := FindWindow(nil, PChar('Название_программы'));
if Keep <> 0 then
GetWindowText(Kep, str, sizeof(str));
until str = 'Название_программы';
Showmessage(str);


То сообшение появиться сразу же после загрузки дочернего (первого окна). Тоесть в str будет не "Название_программы версия", "Название_программы". Как сделать, чтоб было
str :='Название_программы';

или хотя бы узнать handle главного окна.

| Сообщение посчитали полезным:

GetActiveWindow
mov edi,eax
GetParent,eax
.if eax == 0
mov eax,edi
.endif
В eax будет лежать handle

-----
ЗЫ: истЕна где-то рядом, Welcome@Google.com

| Сообщение посчитали полезным:

Demon666Чето не работает

| Сообщение посчитали полезным:

GAMe ovER
Это будет работать, если код находится в программе, которая запускается если из другой, то нет или ты шпиён пишешь?

-----
ЗЫ: истЕна где-то рядом, Welcome@Google.com

| Сообщение посчитали полезным:

GAMe ovER функция GetForegroundWindow возвращает хендл активного окна.
Попробуй:

var Kep : HWND;
str : ARRAY [0..127] OF Char;
begin
repeat
Kep:=GetForegroundWindow;
GetWindowText(Kep, str, sizeof(str));
if str = 'Название_программы' then Showmessage('handle='+inttostr(Kep));
until str = 'Название_программы';
end.

Чё-то в этом духе.

| Сообщение посчитали полезным:

uses keyboard

...

var
Wnd : HWND;
GAFF : array [0..81] of Char;
begin
repeat
Wnd := Windows.WindowFromPoint(Mouse.CursorPos);
until KeyBoard.IsKeyDown(VK_LBUTTON);

| Сообщение посчитали полезным:

EnumWindows
EnumChildWindows

а вобще не очень понятно что нужно

| Сообщение посчитали полезным: