unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

function SetLayeredWindowAttributes(hwnd: longint; crey: byte; bAlpha: byte;
dwFlags: longint): longint; stdcall; external 'USER32.DLL';

implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

var old: longint;

begin

old:=GetWindowLongA(Handle,GWL_EXSTYLE);

SetWindowLongA(Handle,GWL_EXSTYLE,old or $80000);

SetLayeredWindowAttributes(handle, 0, 150, $2);

end;



end.