設計一程式在系統啟動時就自動運行，并讀取一個INI文件內容然后顯示，但我發現程式并未讀取到INI文件，這時衹有將程式關閉，再重新執行一次才可讀取到，請問有沒有解決方法？

可能是路徑的問題，讀取 ini 文件的檔名含路徑嗎? 若不含而你又不想修改程式及你是將你的程式捷徑放在 "啟動" 的，你可在你捷徑的 內容->開始位置 設好 ini 檔位置試試。

非常感謝JustMade的回應！ 我是將執行檔放到HKE_Local_Machine\‧‧\RUN下開機運行的， 建立Tinifile object 的語句，如下 mini：=Tinifile‧create（changefileEXt（application‧exename，'‧INI））； 讀取INI內容並顯示的語句，如下 edit‧text：=mini‧readstring（'Language'，'Type'，''）； 請問這樣對嗎？

請各位先進指點一下，我想這個問題應該不是很複雜呀!

//讀取一個INI文件內容然后顯示    stat.ini    [System] VESA=1 ScreenMode=VM_800X600X256 SystemCharSize=16 CurrentGroup=WORD MainTitle2=ok        procedure TForm1.listTitle; var filename:string; i:integer; breedno:tstringlist;    inifile:TINIFILE; begin listBox1.Clear; //取得文件路径 filename:=ExtractFilePath(paramstr(0)) 'stat.ini'; inifile:=TInifile.Create(filename); breedno:=tstringlist.create; inifile.ReadSection('System',breedno); for i:=0 to breedno.Count-1 do listbox1.items.add(breedno.Strings[i]); breedno.Free ; inifile.Free ; end; procedure TForm1.FormCreate(Sender: TObject); begin listTitle; end; 供参考！ 风花雪月 e梦情缘

------
风花雪月 e梦情缘

引言: 我是將執行檔放到HKE_Local_Machine\‧‧\RUN下開機運行的， 建立Tinifile object 的語句，如下 mini：=Tinifile‧create（changefileEXt（application‧exename，'‧INI'））； 讀取INI內容並顯示的語句，如下 edit‧text：=mini‧readstring（'Language'，'Type'，''）； 請問這樣對嗎？

這樣是沒錯. 只是請確認一下該 ini 檔是否在和 exe 檔同在的目錄下..

剛試了一下. 這樣的作法是 ok 的沒有問題.  所以應該只要將 .ini 檔和你的執行檔放在同一目錄下即可. 例如: F:\TEMP\START.EXE, F:\TEMP\START.INI 像這樣就行了. 不過還是請問一下, 是沒有讀到該檔還是沒有讀到內容呢?    

var
  a: TInifile;
begin
  a:=TInifile.Create(changefileEXt(application.ExeName , '.ini'));
  memo1.Lines.Add(a.ReadString('my','kk',''));
  //showmessage(a.ReadString('my','kk',''));
  a.Free;
end;    

感謝Justmade，timhuang，n/a 三位前輩的指點！  特別感謝前輩timhuang曾兩次回應！  過了3個月,我今天才發現了原因, 如前輩