Изменение прозрачности чужого окна

BOOL GetWindowRect
(
HWND hWnd,      // дескриптор окна
LPRECT lpRect       // адрес структуры для координат окна
);

Markus_13 мне нужно не найти какое-то определенное окно, а не большую утилитку которая делала бы прозрачным выбранное мной окно.
Что ж мне нужно вводить заголовок нужного мне окна в едит, а если заголовок длинный, не удобно однако.

var w:hWnd;
 
procedure Button1click(...);
begin
Timer1.Enabled:=true;
end;
 
procedure Timer1timer(...);
begin
Timer1.Enabled:=false;
w:=GetForegroundWindow;
//далее оперируем с окном
...
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Timer1: TTimer;
    Edit4: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure SetAlpha(Handle: THandle; Alpha: integer);
  private
        procedure ShowHwndAndClassName(CrPos: TPoint);
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
procedure TForm1.SetAlpha(Handle: THandle; Alpha: integer);
begin
  SetWindowLongA(Handle,GWL_EXSTYLE,GetWindowLongA(Handle,GWL_EXSTYLE) or $80000);
  SetLayeredWindowAttributes(Handle, 0, Alpha, $2);
 
end;
 
procedure TForm1.ShowHwndAndClassName(CrPos: TPoint);
 var
  hWnd: THandle;
  aName: array [0..255] of Char;
  rName: array [0..255] of Char;
begin
  hWnd := WindowFromPoint(CrPos); // получить дескриптор
  Edit1.Text := IntToStr(hWnd);
  GetClassName(hWnd, aName, 255);  // получить имя класса
  GetWindowText(hWnd,rName,255);  // получить название
  Edit2.Text:= string(aName) ;
  Edit3.Text:= string(rName) ;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  rPos: TPoint;
begin
 // получить координаты курсора и передать функции  ShowHwndAndClassName
  if Boolean(GetCursorPos(rPos)) then ShowHwndAndClassName(rPos);
 
  if getasynckeystate($54)<>0//клавиша T
  then
  begin
 SetAlpha(StrToInt(Edit1.Text),StrToInt(Edit4.text));//Edit4.text - прозрачность 0..255
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

  if getasynckeystate($01)<>0//левая клавиша мыши
  then Timer2.Enabled:= True
  else Timer2.Enabled:= False;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 Timer2.Interval:= 100;
 if n= 0 then n:= 255;
  n:= n-1;
  Edit4.Text:= IntToStr(n);
  SetAlpha(StrToInt(Edit1.Text),StrToInt(Edit4.text))
end;