我用ShellExecute這個函式開檔案 但卻不知道如何關閉這個檔案 適用fileclose或closefileㄇ 這兩個函式的參數都是不太一樣 而且我只知道檔名要如何關閉用ShellExecute開的檔案ㄋ OpenString是檔案的路徑 assignfile(Closefilename,OpenString); Closefile(Closefilename): 這樣用他說I/O error 103 拜託各位大大幫幫忙.......謝謝回答

用 ShellExecute 開的其實不是直接開該檔而是呼叫別程式開該檔，要關閉就是關閉該程式 (如  NotePad)。 因於 ShellExecute 沒足夠資料關閉該程式，所以要轉用 CreateProcess ，如下 :    

var
  SI : TStartupInfo;
  PI : TProcessInformation;
begin
  FillChar(SI, SizeOf(SI), 0);
  SI.cb     := SizeOf(SI); // SI 還有很多東西可設可看 Win32 SDK Help 
  CreateProcess(nil,'Test.txt', nil, nil, False,NORMAL_PRIORITY_CLASS, nil, nil, SI,PI);
  // 你的程式碼
  .....
  .....
  // 最後
  TerminateProcess(PI.hProcess,0); // 關掉外部程式
end;

發表文章前請詳閱本區版規: 1.請註明資料庫系統及版本 2.若非資料(數據)庫相關問題, 將不預警加以移區並扣分