V vericky Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-14 #3 我想让它被设成程序执行的当前目录(路径是相对的) , 应该怎么设置?
Y yangjj Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-14 #4 我想应该是先获取程序执行的当前目录，然后将该目录设置为opendialog的初始目录。应该不 难做的。
L lha Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-14 #5 一句话搞定, OpenDialog1.InitialDir := ExtractFileName(Application.ExeName);
J j_shen2000 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-14 #6 procedure TForm1.Button1Click(Sender: TObject); begin opendialog1.InitialDir:=extractfiledir(application.exename); if opendialog1.Execute then begin end; end;
procedure TForm1.Button1Click(Sender: TObject); begin opendialog1.InitialDir:=extractfiledir(application.exename); if opendialog1.Execute then begin end; end;
E eMetal Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-16 #7 property InitialDir: String;
