procedure TForm1.FormCreate(Sender: TObject);
var
SysDir: pchar;
begin
GetMem(SysDir,250);
GetSystemDirectory(SysDir,250);
ShowMessage(SysDir);
FreeMem(SysDir);
end;
var
SysDir: pchar;
begin
GetMem(SysDir,250);
GetSystemDirectory(SysDir,250);
ShowMessage(SysDir);
FreeMem(SysDir);
end;
309

被折叠的 条评论
为什么被折叠?



