S shanys Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-08 #2 现取得路径，再，盘符=copy(路径,1,pos(':'，路径))；
L lb_icesea79 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-08 #3 procedure TForm1.BitBtn1Click(Sender: TObject); var s:string; begin s:=extractfilepath(application.ExeName); showMessage(S[1]); end;
procedure TForm1.BitBtn1Click(Sender: TObject); var s:string; begin s:=extractfilepath(application.ExeName); showMessage(S[1]); end;
H hhh Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-08 #4 function ExtractFileDrive(const FileName: string): string;
L ldelphi Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-09 #8 to randyamis and 龙丹 有同感！各位，很感谢你们发表意见：但我的使用环境比较特殊，路径是不带盘符的。请问有没有其它办法？
