Разморозка окна

[qqsda]

Собственно нужно иногда размораживать окно. Если делать это через СЕ - все работает. А через делфи никак не получается. Что не так?:sad:

Wnd := window[Form1.ComboBox1.ItemIndex];
GetWindowThreadProcessId(Wnd, @PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
unf:=1;
writeprocessmemory(hProcess,ptr($00E444A4+$04EC),@ unf,Sizeof(unf),BytesCount);

[DevZI]

UnfFlag = $E4511C;
byte := $10;

WriteProcessMemory(hProcess, ptr(UnfFlag), @byte, sizeof(byte), BytesCount);

Заморозить обратно - byte := $0;