delphi прозрачность чужого окна

[guffer]

подскажите плз как организовать в delphi прозрачность "чужого" окна???
Например прозрачность "Безымянный - Блокнот"?????

[MadReason]

function SetBlendWindow(hWnd : HWND; AlphaBlend : Byte) : LongBool;
type
  TSetLayeredWindowAttributes = function (hWnd : THandle; crKey : COLORREF; bAlpha : Byte; dwFlags : DWORD) : Boolean; stdcall;
var
  Old : longint;
  User32 : HMODULE;
  SetLayeredWindowAttributes : TSetLayeredWindowAttributes;
begin
  User32 := LoadLibrary('user32.dll');
    if (User32 <> 0) then
      begin
        Old := GetWindowLong(hWnd, GWL_EXSTYLE);
        SetWindowLong(hWnd, GWL_EXSTYLE, Old or $80000);
        SetLayeredWindowAttributes := GetProcAddress(User32, 'SetLayeredWindowAttributes');
        if Assigned(SetLayeredWindowAttributes) then SetLayeredWindowAttributes(hWnd, 0, AlphaBlend, LWA_ALPHA);
        FreeLibrary(User32);
      end;
  Result := False;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
h:Thandle;
begin
h:=FindWindow(nil, 'Безымянный - Блокнот');
SetBlendWindow(h,80);
end;