unit frmljsz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,IniFiles;

type
  TForm8 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation 

{$R *.dfm}

procedure TForm8.Button2Click(Sender: TObject);
var
MyIni:TIniFile;
begin 
MyIni:=Tinifile.create('.\lj.ini');
if edit1.Text='' then
        begin
        application.MessageBox('請輸入要設置的路徑！','系統提示');
        edit1.SetFocus;
        exit;
        end
else
        myini.WriteString('系統路徑設置','系統路徑',edit1.Text);
end;

procedure TForm8.Button1Click(Sender: TObject);
var
MyIni:TIniFile;
test,lujing:string;
begin
MyIni:=Tinifile.create('.\pdljsfszcg.ini');
if edit1.Text='' then
        begin
        application.MessageBox('請輸入要設置的路徑！','系統提示');
        edit1.SetFocus;
        exit;
        end;
lujing:=edit1.Text+'\test\';
test:=filesearch('goodness.ini',lujing);
if test='' then
        begin
        application.MessageBox('路徑不正確，請重新錄入！','系統提示');
        myini.WriteString('判斷路徑是否設置成功','flag','路徑設置不成功');
        edit1.SetFocus;
        exit;
        end
else
        begin
        application.MessageBox('路徑設置成功，請保存！','系統提示');
        myini.WriteString('判斷路徑是否設置成功','flag','路徑設置成功');
        end;

end;

end.