请教：  我用的 Paradox  数据库    是通过 ADO  连接的 ，如下

ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="CollatingSequence=ASCII;DefaultDir='
        '.\Data;Driver={Driver do Microsoft Paradox (*.db )};DriverId=538;FIL=Paradox 5.X;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ParadoxNetPath='
    'C:\WINNT\system32;ParadoxNetStyle=4.x;ParadoxUserName=admin;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"';    

因为 不是每台机器上都有'C:\WINNT\system32这个目录的.... 所以 我需要把它该 改成相对路径 但是 我不知道怎么把 C:\WINNT\system32 改成相对路径？ 各位大哥，应该要怎么改啊？ 谢谢！

您好﹗    剛才正好寫到一段類似的程式碼﹐請參考如下﹕

Var
  Str: String;
begin
  if DirectoryExists('C:\WINNT\System32') then
    begin
      Str := 'C:\WINNT\System32\'
    end
  else
  if DirectoryExists('C:\Windows\System32') then
    begin
      Str := 'C:\Windows\System32\;
    end
  else
    begin
      ShowMessage('系統的System32目錄不存在')
      Application.Terminate;
    end;
  ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Persist 
    Security Info=False;Extended 
    Properties="CollatingSequence=ASCII;DefaultDir='
      +'.\Data;Driver={Driver do Microsoft Paradox 
    (*.db )};DriverId=538;FIL=Paradox 
     5.X;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ParadoxNetPath='
    +Str+';ParadoxNetStyle=4.x;ParadoxUserName=admin;SafeTransactions=0;
    Threads=3;UID=admin;UserCommitSync=Yes;"';
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

所謂相對路徑指的是你的程式在固定的路徑上執行，用相對路徑才能找到指定的檔案，例如你的程式在 C:\Temp 下執行，那麼 C:\WINNT\system32 相對於C:\Temp ，以C:\Temp下的程式路徑就要寫成 '..\WINNT\system32' 這樣！但是我認為這不是解決方案，而是你必須要知道你所要存取的檔案是不是永遠都會在那個地點，而且你的程式是不是永遠都會在固定的磁碟目錄下執行才能這樣寫！ 另外，如果你要存取的檔案是存在於系統的目錄下，那麼為因應各種

太感谢 cashxin2002 大哥 和 Stallion 大哥了！ cashxin2002 大哥，一般 win2000 server 就是 有'C:\WINNT\system32 其他的就是 'C:\Windows\System32\ ，是吗？ Stallion 大哥，GetSystemDirectory 是怎么用的啊，请举个列子，好吗？ 谢谢 ！

 var
    TempPath:String;
    Len:integer;
    ....        SetLength(TempPath,MAX_PATH);
    Len:=GetSystemDirectory(PChar(TempPath),MAX_PATH);
    SetLength(TempPath,Len);
    
    ....
    

----------------------------------------------- Creation is the fundation of promotion.

您好﹗    据小弟所知﹐Windows各版本System32所在的路徑﹕ WinNT, Windows2000 'C:\WINNT\System32'    WinXP 'C:\Windows\System32'    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

補充一下！ 不知道