Class Initialisieren und Terminieren

[Union]

Delphi-Quellcode:

var
   Magnetic : CMagnetic; // Man sollte für Typdeklaratationen überigens besser "T" verwenden
begin
   Magnetic := CMagnetic.Create;
   try
      Magnetic.AddWindow(GetDesktopWindow, Self.handle);
   finally
      Magnetic.Free;
   end;
end;