Transparent-Function auch für Win-Versionen unter Win2000?

[Helmi]

Aufruf: (z. b.)

Delphi-Quellcode:

begin
  MakeWindowTransparent(Form1.Handle, 30);
end;

oder mit Abfrage:

Delphi-Quellcode:

begin
  If MakeWindowTransparent(Form1.Handle, 30) then
    ShowMessage('Form transparent')
  else
    ShowMessage('Form nicht transparent');
end;