什么方法可以知道当前操作系统的安装目录？

Question

谢谢了

Answer 1

var
pWindowsDir : array [0..255] of Char;
sWindowsDir : string;
begin   GetWindowsDirectory (pWindowsDir, 255);
    sWindowsDir := StrPas (pWindowsDir);
    ShowMessage(sWindowsDir) ;
end;

Answer 2

ar s1,s2,s3:array[1..40] of char;z1,z2:string;
begin
getwindowsdirectory(@s1,40);
getsystemdirectory(@s2,40);z1:=trim(s1);
z2:=trim(s2);
showmessage(z1);
showmessage(z2);
end;

Answer 3

ar s1,s2,s3:array[1..40] of char;z1,z2:string;
begin
getwindowsdirectory(@s1,40);
getsystemdirectory(@s2,40);
z1:=trim(s1);
z2:=trim(s2);
showmessage(z1);
showmessage(z2);
end;

Answer 4

function getwinpath: String;
var
  WinDir: pchar;
  i: cardinal;
begin
  i := 255;
  GetMem(WinDir,i);
  getwindowsdirectory(WinDir,i);
  getwinpath := strpas(WinDir);
  freemem(WinDir);
end;

Answer 5

都正确，还有一个方法就是直接读取注册表。（是不是这个API函数也是从注册表中取得？）