unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
Application.Minimize;
ShowWindow(Application.Handle, SW_HIDE);
Memo1.Lines.LoadFromFile('show.txt');
Memo1.Lines.Add('Êîìïüþòåð áûë âêëþ÷åí ' + DateToStr(Now) + ' ' + TimeToStr(Now));
Memo1.Lines.SaveToFile('show.txt');
end;

procedu ... Читать дальше »

моя очередная разработка

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls, IdAntiFreezeBase, IdAntiFreeze, GruString;

type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
IdHTTP1: TIdHTTP;
Label1: TLabel;
IdAntiFreeze1: TIdAntiFreeze;
Memo2: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(StrToInt(Label1.Caption) - 1);
if Label1.Caption='0' then
begin
Application.ProcessMessages;
Memo2.Lines.LoadFromFile('HTTP ... Читать дальше »

Программа регестрирует короткие ссылки на сайте http://shurl.org/

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ShellApi, GruString, StrUtils, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdAntiFreezeBase,
IdAntiFreeze, Gauges;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
GroupBox1: TGroupBox;
Edit1: TEdit;
Button1: TButton;
GroupBox2: TGroupBox;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label2: TLabel;
GroupBox3: TGroupBox;
Memo1: TMemo;
GroupBox4: TGroupBox;
L ... Читать дальше »