-
-
为啥的不到值?
-
2007-6-18 18:56
4552
-
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;
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课