You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
1.2 KiB
Plaintext
53 lines
1.2 KiB
Plaintext
unit u_op_seae_zhedi;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls,inifiles, ExtCtrls, bsSkinCtrls;
|
|
|
|
type
|
|
Tfrm_op_seae_zhedi = class(TForm)
|
|
Label2: TLabel;
|
|
Edit2: TEdit;
|
|
Edit3: TEdit;
|
|
Label3: TLabel;
|
|
bsSkinButton3: TbsSkinButton;
|
|
bsSkinButton2: TbsSkinButton;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_op_seae_zhedi: Tfrm_op_seae_zhedi;
|
|
|
|
implementation
|
|
|
|
uses u_data_share, u_main;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_seae_zhedi.FormShow(Sender: TObject);
|
|
var
|
|
inifile1:Tinifile;
|
|
begin
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
edit2.text:=inifile1.ReadString('customzh','USERNAME','');
|
|
edit3.text:=inifile1.ReadString('customzh','USERPSW','');
|
|
end;
|
|
|
|
procedure Tfrm_op_seae_zhedi.bsSkinButton3Click(Sender: TObject);
|
|
var
|
|
inifile1:Tinifile;
|
|
begin
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
inifile1.WriteString('customzh','USERNAME',edit2.text);
|
|
inifile1.WriteString('customzh','USERPSW',edit3.text);
|
|
end;
|
|
|
|
end.
|