我的程式是放在USB 碟中 ShellExecute(0,'open',PChar('F:\Path\MyProgram.exe'),Nil,PChar('\Path\'),SW_SHOWNORMAL); 但是現在有一個問題，在我的電腦USB 是 F:，在其他的電腦就不一定是 F: 了。 請問各位大大，我要呼叫哪個 API ，或者呼叫什麼函數?才能取得現行磁碟機? 謝謝。 Chego

試試看: ShowMessage(GetCurrentDir);    顯示程式的目錄 國泰平安

引言: 試試看: ShowMessage(GetCurrentDir); 顯示程式的目錄 國泰平安 < face="Verdana, Arial, Helvetica"> 版本大大，謝謝您的快速回應。 其實，我有想到用 GetCurrentDir ，我是想用『絕對路徑的方式』呼叫，如果我的程式 MyProgram.exe 是放在 X:\path1\MyProgram.exe 我的 Delphi 寫的程式是放在 X:\path2\Call.exe 那，我只要能抓到現行磁碟機的代號，我就可以用絕對路徑的方式呼叫MyProgram.exe。 以上，敬請幫忙，再次感謝。 Chego

ExtractFilePath(Application.ExeName) 即可得 Application 的所在路徑    --- 歡迎光臨 KTop 研究院

其實你只是要最前面的那個英文字而已， 那就把用GetCurrentDir抓來來的字串， 取第一個字就好啦~     抓到之後，再接上你的':\\path1\MyProgram.exe'     國泰平安

就像這樣:  

procedure TForm1.Button1Click(Sender: TObject);
var
  StrDisk: string;
begin
  StrDisk := GetCurrentDir;
  SetLength(StrDisk, 1);
  ShowMessage(StrDisk ':\path1\MyProgram.exe');    end;    end.         

國泰平安

引言: 就像這樣:

procedure TForm1.Button1Click(Sender: TObject);
var
  StrDisk: string;
begin
  StrDisk := GetCurrentDir;
  SetLength(StrDisk, 1);
  ShowMessage(StrDisk ':\path1\MyProgram.exe');    end;    end.         

國泰平安

感謝兄熱情的回應，問題得到完美的解決。 感恩。 Chego