Синхронизация HandleWindow в двух программах

[Anton911]

В общем проблема такая, есть глобальный хук на функцию WriteProcessMemory( это все работает), заменяющая функция имеет такой вид:

function NewWriteProcessMemory(hProcess: THandle;const lpBaseAddress: Pointer;lpBuffer: Pointer;
        nSize: DWORD;var lpNumberOfBytesRead: DWORD):boolean; stdcall;
begin
VipProgHandle:=FindWindow(nil,VipProgName);
PrProgHandle:=FindWindow(nil,PrProgName);
CloseHandle(PrHandleWindow);
CloseHandle(VipHandleWindow);
if PrProgHandle<>0 then   Begin
  GetWindowThreadProcessId(PrProgHandle,@PrProcessId);
  PrHandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,PrProcessId);
End;
if VipProgHandle<>0 then   Begin
  GetWindowThreadProcessId(VipProgHandle,@VipProcessId);
  VipHandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,VipProcessId);
End;
  if ((hProcess=PrHandleWindow) and (PrHandleWindow<>0))
        or ((hProcess=VipHandleWindow) and (VipHandleWindow<>0)) then
      Begin
      Result:=false;
      End Else Begin
        UnHookCodeHook(@WPMFunc);
        Result:=WriteProcessMemory(hProcess,lpBaseAddress,lpBuffer,nSize,lpNumberOfBytesRead);
        SetCodeHook(WPMFunc.Address,@NewWriteProcessMemory,@WPMFunc);
     End;
end;

В общем проверяется, если WriteProcessMemory не затрагивает нужную программу, то разрешаем применить WriteProcessMemory. Но вот проблема hProcess и VipHandleWindow не совпадают, в интернете посмотрел, они локальные для каждой программы. Как же тогда быть?

Вот код программы которая делает WriteProcessMemory

procedure TForm1.Button1Click(Sender: TObject);
var b:boolean;
hdl,ProcessId,HandleWindow:THandle;
ThreadId:Integer;
buf:PChar;
Write:Cardinal;
begin
VIPHandle:=FindWindow(nil,'VipProgName');
  if VIPHandle<>0 then
    Begin
      showmessage('есть окно');
      ThreadId := GetWindowThreadProcessId(VIPHandle,@ProcessId);
      HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
      GetMem(buf,1);
      buf^ := Chr(PokeValue);
      b:=WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
      FreeMem(buf);
        if b then Showmessage('true '+inttostr(HandleWindow)) else
          Showmessage('false '+inttostr(HandleWindow));
    End else
      showmessage('нет окна');
end;

[waleri]

Воспользуйтесь GetProcessId() - это даст вам уникальное ID процесса.

[Anton911]

Дать то оно даст, но вот в чем загвоздка, значит на входе функции NewWriteProcessMemory поступает hProcess: THandle. Именно это значение я мог бы использовать для идентификации программы на которую направлена WriteProcessMemory. А если использовать идентификатор процесса, тогда с чем его сравнить?

[waleri]

А с чем вы сравниваете hProcess? Очевидно с другим манипулятором... Доставайте ID из обоих и сравнивайте.

[Anton911]

Дело в том, что кроме hProcess(которая не действительна для dll в которой хук) мне ничего не дано, ни названия окна цели для функции GetProcessId, ни ид процесса для сравнения. Еслибы хоть что-нибудь глобальное узнать о цели с помощью чего можно вычеслить PID, тогда дело бы продвинулось.