-
-
为啥的不到值？
-
发表于:
2007-6-18 18:56
5142
-
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;
[招生]科锐逆向工程师培训(2025年3月11日实地，远程教学同时开班, 第52期)！
伤心了啊
