Existe uma coisinha chamada Type Cast onde você lê ou escreve em uma variável com o tipo que você quiser. Isso se dá colocando o tipo seguido da variável entre parentesis. então pra transformar ponteiro em integer é assim->
Integer(Ponteiro). E de Integer pra ponteiro é ->
Pointer(inteiro). Então no seu caso ficaria->
CODE
var
inteiro : Integer;
pt : PNetResourceA;
NetRes : TNetResourceA;
begin
inteiro:=Integer(@NetRes); // já salvou o ponterio no integer
pt:=Pointer(inteiro); // jogou o endereço pro ponteiro mesmo.
end;
Nesse caso tanto faz
inteiro:=Integer(@NetRes); como
Pointer(inteiro):=@NetRes; Beleza?