HI,
wenns ne eigene Prozedur ist, dann kannst du auch den Typ ändern um das ganze einfacher zu machen. Falls nicht, würde ich vorschlagen einen typisierten Pointer zu nehmen. Den Wert bekommst du (nur beim typisierten) mit Pointer^.
Beispiel
Delphi-Quellcode:
procedure Test(Wert: Pointer);
begin
showmessage(IntToStr(Integer(Wert)) + '; ' + IntToStr(PCardinal(Wert)^));
end;
procedure TForm1.Button1Click(Sender: TObject);
var x1: HWND;
x2: PCardinal;
begin
x1 := self.Handle;
x2 := @x1;
Test(x2);
end;
Bernhard