-
-
为啥的不到值？
-
发表于:
2007-6-18 18:56
5182
-
var
Form1: TForm1;
lAppDataPath: string;
appstr:string;
implementation
{$R *.dfm}
function GetAppDataPath: string;
begin
appstr:='AppData';
SetLength(lAppDataPath,255);
asm
push $0ff
mov eax, offset lappdatapath
push eax
push offset appstr
CALL GetEnvironmentVariableA
PUSH lappdatapath
POP EAX
mov @result, EAX
end;
end;
[培训]科锐逆向工程师培训第53期2025年7月8日开班！
伤心了啊
