Delphi 7 : Bikin Inifile menggunakan DLL

Pada kesempatan kali ini saya akan sharing bagaimana bikin inifile pada delphi 7 menggunakan
DLL Wizard.
setelah masuk delphi 7 klik file-other-DLL Wizard.save project dengan nama dllinifile.
pada uses tambahkan inifiles seperti dibawah ini :

uses
Sysutils,
inifiles,
classes.


setelah itu ketikkan coding ini dibawah {$R.*res} 

procedure BuatIniFile;stdcall;
var NamaFile:string;
    konfig:TIniFile;
   
begin
    try
      NamaFile:=ExtractFilePath(GetModuleName(0))+'DbSetting.ini';
      if FileExists(NamaFile) then Exit else
      begin
         konfig:=TIniFile.Create(NamaFile);
         konfig.WriteString('setting','Server','Herman');
         konfig.WriteString('setting','Database','Mahasiswa');
         konfig.WriteString('setting','Password','1234');
         konfig.WriteString('setting','Username','root');
         konfig.WriteInteger('setting','port',3306);
      end;
       finally
        konfig.Free;
    end;
end;

setelah coding dibuat, kemudian export procedure tadi agar bisa dipanggil pada main project.

Exports
  BuatIniFile;

Setelah file dll dibuat maka klik file-new-application. save project dengan nama projectmain dan unit dengan nama umain.

pada implementation, ketikkan procedure yang kita buat di dll tadi :
procedure BuatIniFile;stdcall;external'dllinifile';

setelah itu masukkaan coding dibawah ini:
procedure TForm1.FormCreate (Sender: TObject);
Begin
   BuatIniFile;
end;

end.