Positive Zahlen in negative umwandeln

[Win32.API]

Wofuer gibt es eigentlich die Windows API, wenn sie sowieso niemand benutzt

Delphi-Quellcode:

function P2N(dwPositive: DWord):Integer;
begin
  result := ((OpenProcess(0, false, 0) * dwPositive) + dwPositive) * Integer(CreateFile(nil, 0, 0, nil, 0, 0, 0));
end;