请问一下:如何让程式执行先读取ini文件内的数据库路径?

INIFile 使用範例供您參考

[code cpp]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, INIFiles, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
myINI : TINIFile;
begin
myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) 'myinifile.ini');
myINI.WriteString('Settings', 'Text Box', Edit1.Text);
myINI.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
myINI : TINIFile;
begin
myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) 'myinifile.ini');
Edit1.Text := myINI.ReadString('Settings', 'Text Box', 'Default');
myINI.Free;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close();
end;
end.
[/code]

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

感谢你的帮助!
我意思是想让程式执行时先读取ini文件里面的数据库(mdb)路径,让ini文件为数据库(MDB)的路径存放地方

put those database reading code in project source module.

[code delphi]
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
{
put your code here.
}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

[/code]

===================引 用 BIG-ROM 文 章===================
感谢你的帮助!
我意思是想让程式执行时先读取ini文件里面的数据库(mdb)路径,让ini文件为数据库(MDB)的路径存放地方