Добро пожаловать на наш портал

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Menus, jpeg, RegisTry;

type
TForm1 = class(TForm)
Timer1: TTimer;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Image2: TImage;
Label1: TLabel;
Image3: TImage;
Image5: TImage;
image4: TImage;
Label2: TLabel;
N3: TMenuItem;
Memo1: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
procedure CreateParams(var Params:TCreateParams); override;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i: integer;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
label2.Caption:=DateToStr(date);
inherited CreateParams(Params);
Params.Style:=Params.Style or ws_popup xor ws_dlgframe;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
formrgn:hrgn;
h: tregistry;
a: string;
b: string;
begin
form1.Brush.Style:=bssolid;
getwindowrgn(form1.Handle,formrgn);
deleteobject(formrgn);
Form1.height:=220;
form1.width:=Form1.height;
formrgn:=createroundrectrgn(2,2,Form1.height-1,form1.width-1,Form1.height,form1.width);;
setwindowrgn(form1.Handle,formrgn,true);
a:=extractfiledir(application.ExeName);
memo1.lines.LoadFromFile(a+'\àâòîçàãðóçêà.txt');
b:=memo1.lines.strings[0];
if b='2' then
begin
h := TRegistry.Create; // Çàíîñèì ïðîãðàììó â àâòîçàãðóçêó ðååñòðà
h.RootKey:=HKEY_CURRENT_USER;// Ýòî ðàçäåë ðååñòðà â êîòîðûé áóäåò äîáàâëåíà ïðîãðàììà
h.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//ýòî ïóòü ïî êîòîðîìó îòêðûâàåòñÿ íóæíûé ðàçäåë ðååñòðà
h.WriteString('Projekt1',Application.Exename); //nameprog- íàçâàíèå ïðîãðàììû êîòîðóþ íóæíî äîáàâèòü â àâòîçàãðóçêó
h.CloseKey; // çàêðûòèå ðàçäåëà ðååñòðà
h.Free;//Îñâîáîæäåíèå ïðåìåííîé
end;
if b='1' then
begin
h := TRegistry.Create;
h.RootKey:=HKEY_CURRENT_USER;
h.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
h.DeleteValue('Projekt1');
h.CloseKey;
h.Free;
end;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releaseCapture;
form1.Perform(wm_syscommand,$f012,0);
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image4.Visible:=false;
end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image4.Visible:=true;
end;

procedure TForm1.Image4Click(Sender: TObject);begin
begin
form1.Close;
end;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
form3.show;
end;
end.

unit Unit3;

interface

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

type
TForm3 = class(TForm)
CheckBox1: TCheckBox;
Label1: TLabel;
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
const
c='âíèìàíèå ïðîãðàììà áóäåò àâòîìàòè÷åñêè çàïóñêàòñÿ ïðè âõîäå â ñèñòåìó';
b='âíèìàíèå ïðîãðàììà íå áóäåò àâòîìàòè÷åñêè çàïóñêàòñÿ ïðè âõîäå â ñèñòåìó';

var
Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.CheckBox1Click(Sender: TObject);
var
h: tRegisTry;
f: textfile;
a: string;
begin
a:=extractfiledir(application.ExeName);
assignfile(f,a+'\àâòîçàãðóçêà.txt');
rewrite(f);
if CheckBox1.state=cbChecked then
begin
write(f,'2');
label1.Caption:=c;
end;
if CheckBox1.state=cbUnchecked then
begin
write(f,'1');
label1.Caption:=b;
end;
closefile(f);
form1.Memo1.Lines.LoadFromFile(a+'\àâòîçàãðóçêà.txt');
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
if form1.Memo1.Lines.Strings[0]='1'then
begin
CheckBox1.state:=cbUnchecked;
label1.Caption:=c;
end
else
CheckBox1.state:=cbChecked;
label1.Caption:=b;
end;

end.