Inkompatible Handle-Typen erstellen

[Der schöne Günther]

Delphi-Quellcode:

program Project1;

type
  TWindowHandle = record
    var handle: THandle;
    class operator Implicit(const handle: THandle): TWindowHandle;
  end;

  TProcessHandle = record
    var handle: THandle;
    class operator Implicit(const handle: THandle): TProcessHandle;
  end;

class operator TWindowHandle.Implicit(const handle: THandle): TWindowHandle;
begin
  Result.handle := handle;
end;

class operator TProcessHandle.Implicit(const handle: THandle): TProcessHandle;
begin
  Result.handle := handle;
end;

var
  rawHandle: THandle;
  windowHandle: TWindowHandle;
  processHandle: TProcessHandle;
begin
  rawHandle := 1234;
  windowHandle := rawHandle;
  processHandle := rawHandle;
  // windowHandle := processHandle; // E2010 Incompatible types
end.