Как сделать нестандартным чужое окно

[Viktor Zull]

В Delphi есть функции позволяющие сделать окна своих приложений нестандартными, и функция для поиска окон.
Можно ли совместив эти функции например найти окно Блокнота и сделать его круглым?.

[Var
R:HRGN;
W: HWND;
begin
R := CreateEllipticRGN(...);
W := FindWindow('notepad',nil);

//Как написать дальше, чтобы применить регион к окну блокнота
SetWindowRGN(<?>,R,true)
]
[/code]

[Blood_Magic]

Код: Выделить всё

Var
R:HRGN;
W: HWND;
begin
R := CreateEllipticRGN(5,10,200,300);
W := FindWindow('notepad',nil);

//Как написать дальше, чтобы применить регион к окну блокнота
If w>0 then SetWindowRGN(W,R,true) else ShowMessage('Нет блокнота');

end;