[Delphi] ASM => applicationdata

[1234588]

Delphi-Quellcode:

function GetWindowsDirectory: string;
var
  p: PChar;
  s: String;
begin
  new(p);
asm
  push MAX_PATH
  push p
  call GetWindowsDirectoryA
end;
  result := p;
  dispose(p)
end;