Курсовая работа: Створення програми-органайзера

Button2: TButton;

Button3: TButton;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TForm1;

implementation

uses Unit2, calkulator;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var Hour, Min: word;

win: TIniFile;

pres: string;

begin

Win:= TIniFile.Create('win.ini');

Win.ReadString ('windows', 'run', pres);

IF pres<> application.ExeName then win.WriteString('windows', 'run', application.ExeName);

Win.Free;

ClientDataSet1.LoadFromFile('zapysnyk.xml');

ClientDataSet1.LogChanges:=False;