如何使TOpenDialog的InitialDir属性值为‘我的电脑’(50分)

L

lonelybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #1

也就是说却省的打开目录为我的电脑！
请问如何设置！？

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #2

initialdir:=''就可以了

 

L

lonelybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #3

抱歉，我试了，不行的，还有别的方法吗！？

 

L

lonelybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-12

• #4

帮帮我！

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-12

• #5

我记得是可以的呀，我用过
delphi6

 

L

lonelybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-12

• #6

不好意思了，我用的时delphi5哈哈

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-12

• #7

uses shlobj;

procedure TForm1.Button1Click(Sender: TObject);
var
pidl: PItemIDList;
DeskTopPath: array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOPDIRECTORY, pidl);
SHGetPathFromIDList(pidl, DeskTopPath);

OpenDialog1.InitialDir := DeskTopPath;
OpenDialog1.Execute
end;

 

L

lonelybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-12

• #8

谢谢了，虽然还是没有得到我的电脑那个目录，不过也很好了！给分了！