请问取得系统安装目录的函数是什么怎么使用?(0分)

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #1

同上

 

南

南宫吹云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #2

是WINDOWS吗？
还是你的程序的安装目录？

 

Z

zdb123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #3

你可以由用户指定吗！

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #4

getwindowsdirectory(sysdir,255);

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #5

var
sysdir:array[0..255] of char;

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #6

是windows的安装目录
同意D影子D
我试试看,前面要不要申明什么?

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #7

var
sysdir:array[0..254] of char;
begin
edit1.text:=ExtractFilePath(application.exename)+ExtractFilename(Application.Exename);
edit2.text:=getwindowsdirectory(sysdir,255);//这个不行呀

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
winpathchar;
begin
getmem(winpath,255);
GetWindowsDirectory(winpath,255);

end;

 

B

bini

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #9

procedure TForm1.Button1Click(Sender: TObject);
var dir:array [0..255] of char;
begin
GetWindowsDirectory(dir,255);
edit1.Text:=strpas(dir);
end;

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-26

• #10

这两个都可以做到.
我有点不明白的是
strpas(dir)//这个是什么函数?
getmem(winpath,255);//这个又是什么函数?
能具体说说吗?让我们学习学习@@

procedure TForm1.Button1Click(Sender: TObject);
var
winpathchar;
begin
getmem(winpath,255);
GetWindowsDirectory(winpath,255);
edit1.text:=winpath;
end;

procedure TForm1.Button1Click(Sender: TObject);
var dir:array [0..255] of char;
begin
GetWindowsDirectory(dir,255);
edit1.Text:=strpas(dir);
end;

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-07

• #11

接受答案了.