请问在Delphi编程中,如何获取WINDOWS的安装目录？

请写出代码！谢谢！

2025-12-15 22:36:21

推荐回答（3个）

回答1：

var
S:PChar;
begin
GetMem(S, MAX_PATH);
GetWindowsDirectory(S,MAX_PATH);
ShowMessage(S);
FreeMem(S);
end;

回答2：

procedure TForm1.Button1Click(Sender: TObject);
var
buf :array [0..255] of char;
begin
GetWindowsDirectory(buf,255);
showmessage(buf)
end;

回答3：

读取注册表内容：
function getprograms:string;
var
reg:Tregistry;
begin
result:='';
reg:=Tregistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',True) then
result:=reg.ReadString('programs');
finally
reg.Free;
end;
end;