5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hmyd 2004-07-30
- 打赏
- 举报
可是我想知道program files目录在哪个盘下，Delphi里面好像只有判断system32路径和windows路径
云孤天 2004-07-30
- 打赏
- 举报
win2000:
var
s:array[0..255] of char;
begin
GetEnvironmentVariable('ProgramFiles',s,256);
end;
在98下注册表:
HKEY_LOCAL_MATHINE\software\microsoft\windows\currentversion
下可以查到：programfiledir和programfilepath
var
s:array[0..255] of char;
begin
GetEnvironmentVariable('ProgramFiles',s,256);
end;
在98下注册表:
HKEY_LOCAL_MATHINE\software\microsoft\windows\currentversion
下可以查到：programfiledir和programfilepath
梅青松 2004-07-30
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
buffer: array [0..255] of Char;
begin
if (GetSystemDirectory( @buffer, 255) > 0) then
Edit1.text := buffer;
end;
var
buffer: array [0..255] of Char;
begin
if (GetSystemDirectory( @buffer, 255) > 0) then
Edit1.text := buffer;
end;
jinjazz 2004-07-30
- 打赏
- 举报
%systemroot%\..\Program Files
win2000下
win2000下
hmyd 2004-07-30
- 打赏
- 举报
不是要我软件的当前目录，是要program files这个安装windows后的程序目录啊，就是想知道是在哪个盘
jblcj 2004-07-30
- 打赏
- 举报
用Getdir(0,s)吧
