FindWindow, окно с частицой (символомами)

[zotox]

Вообщем есть окно... Есть начальные символы (точнее они известны) окна.
Нужно сделать так... В случае если FindWindow находит окно где указанные символы есть, то показывает showmessage('ОК') что он нашел окно такое с начальными символами
Но дело в том что я не знаю как это сделать! (pos не поможет вроде как)

Помогайте

(начальные символы окна!)

[Evgeniy26]

Сообщение от zotox

Вообщем есть окно... Есть начальные символы (точнее они известны) окна.

Что за начальные символы?

[Пепел Феникса]

начальные символы чего?
заголовка окна?

[zotox]

Сообщение от Пепел Феникса

начальные символы чего?
заголовка окна?

да! ...

[Lime]

Найти все окна , занести допустим в TStringList . Далее какраз с тем-же pos выполнить поиск , и снова FindWindow только с уже найденым заголовком окна.

[zotox]

Сообщение от Lime

Найти все окна , занести допустим в TStringList . Далее какраз с тем-же pos выполнить поиск , и снова FindWindow только с уже найденым заголовком окна.

А как найти все окна? Гуглил, не нашел

[Evgeniy26]

Глянь пример.

[Пепел Феникса]

EnumWindows в помощь

[Terran]

Function Find(S: String): HWnd;
Var
Wnd: HWnd;
Buff: Array[0..127] Of Char;
Begin
Find:=0;
Wnd:=GetWindow(Application.Handle,GW_HWndFirst);
While Wnd <> 0 Do
Begin
If (Wnd <> Application.Handle) And IsWindowVisible(Wnd) And
(GetWindow(Wnd,GW_Owner) = 0) And (GetWindowText(Wnd,Buff,Sizeof(Buff)) <> 0) Then
Begin
GetWindowText(Wnd,Buff,Sizeof(Buff));
If Pos(S,StrPas(Buff)) > 0 Then
Begin
Find:=Wnd;
Break;
End;
End;
Wnd:=GetWindow(Wnd,GW_HWndNext);
End;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If Find('Delp') <> 0 Then
Begin
ShowMessage('Ok');
End;
End;

[DjDram]

Смотрю тут тоже api обсуждается а я вот не могу решить задачку нужно считать строку из памяти процесса запущенной программы.

RVA строки $0036D0C8 нужен ведь RVA не VA

Процедура выглядит следующим образом, для проверки значений заносил их в edit

procedure TForm1.Button1Click(Sender: TObject);
var
hProc, PID, numberRead : DWORD;
hWnd : THandle; // Хэндл окна чата
IpBuf : string; // буфер куда поместиться наше значение
ipBase: ^dword; // точка входа в памяти
begin
hWnd:=findwindow('TfChatClient',nil ); /// получаем хэндл окна программы
Edit1.Text:=inttostr(hWnd); // заносим в edit Handle
GetWindowThreadProcessId(hWnd, @PID); //получаем pid зная хэндл окошка интересующей нас программы
Edit2.Text:=inttostr(PID); // заносим в edit ID
hProc:=OpenProcess(PROCESS_VM_READ, False, PID); // подключаемся к процессу зная его ID
try
if hProc <> 0 then // условие проверки подключения к процессу
begin
Edit3.Text:=inttostr(hProc); // заносим в edit Process
ipbuf:=' '; // очищаем буфер
SetLength(ipbuf, 4); // устанавливаем длинну буфера
ipBase:=ptr($0036D0C8); // RVA слова в памяти
ReadProcessMemory(hProc, ipBase, Addr(ipbuf), 4, numberRead); // чтение из памяти строки
Edit4.Text:=PCHAR(ipbuf); // заносим в edit Buffer
end;
finally
CloseHandle(hProc); // отсоединяемся от процесса
end;
end;



В результате получилось следующее хэндл, pid process считываються идеально, а вот переменная ipbuf куда должно занестись значение выдыдаёт какуето ерунду, строка в кодировке ascll. что не так где ошибки?