Question

用delphi 判断系统根目录

如题
最好返回字符串
还有用用c语言判断的函数也请大虾们指点

Answer 1

//系统目录
function GetSystemDir: string;
var
Buf: array[0..MAX_PATH] of char;
begin
GetSystemDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)] <> '\' then
Result := Result + '\';
end;

这个函数返回值的前三个字母就是系统根目录

我现在很少用C，不过GetSystemDirectory是系统API函数，应该也可以用的，只是要注意参数的定义