installlang.pas

来自「IDE开发环境」· PAS 代码 · 共 63 行

unit InstallLang;

interface

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

type
  TInstallLangFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InstallLangFrm: TInstallLangFrm;
  LanguageINI   : TINIFile;

implementation
uses MDIChld, MainUnit, Unit1;

{$R *.dfm}

procedure TInstallLangFrm.BitBtn1Click(Sender: TObject);
var
  NumOfLanguages : Integer;
  NewLanguageINI : TINIFile;
begin
LanguageINI := TINIFile.Create(ExtractFilePath(Application.ExeName)+'Languages.ini');

NumOfLanguages := LanguageINI.ReadInteger('Main', 'LanguageCount', 1);
INC(NumOfLanguages);
LanguageINI.WriteInteger('Main', 'LanguageCount', NumOfLanguages);

LanguageINI.WriteString('Main', 'Language'+IntToStr(NumOfLanguages), Edit2.Text);

LanguageINI.WriteString('Language'+IntToStr(NumOfLanguages), 'Filename', Edit1.Text); //Writes: [Language] \n FileName=
LanguageINI.WriteString('Language'+IntToStr(NumOfLanguages), 'Name', Edit2.Text);
                      
//Clean up:
LanguageINI.Free;
InstallLangFrm.Close;
end;

procedure TInstallLangFrm.BitBtn2Click(Sender: TObject);
begin
InstallLangFrm.Close;
end;

end.