Реализация автозапуска, возникли сложности

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi,StdCtrls, jpeg, ExtCtrls,pngimage, ComCtrls, Grids,DateUtils,unit2,
  Menus,Registry;
const
WM_NOTIFYTRAYICON = WM_USER + 1;
type
  TForm1 = class(TForm)
    Image1: TImage;
    close1: TImage;
    close2: TImage;
    close4: TImage;
    close3: TImage;
    sver: TImage;
    sver1: TImage;
    sver2: TImage;
    sver4: TImage;
    Label1: TLabel;
    MC1: TMonthCalendar;
    nap: TMemo;
    Label2: TLabel;
    chas: TComboBox;
    min: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    mfile: TEdit;
    Label5: TLabel;
    obzor: TImage;
    add: TImage;
    izm: TImage;
    del: TImage;
    obzor1: TImage;
    obzor2: TImage;
    add1: TImage;
    add2: TImage;
    del1: TImage;
    del2: TImage;
    fonb: TImage;
    fonb1: TImage;
    izm1: TImage;
    izm2: TImage;
    SG1: TStringGrid;
    OD1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Timer1: TTimer;
    Label7: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Edit2: TEdit;
    Pop1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    poisk: TEdit;
    Label11: TLabel;
    DTP1: TDateTimePicker;
    Label12: TLabel;
    CB1: TCheckBox;
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure close1Click(Sender: TObject);
    procedure close1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure close4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure sverMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure sver4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure sverClick(Sender: TObject);
    procedure addMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure izmMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure delMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure obzorMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure fonbMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure fonb1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure obzorClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure SG1Click(Sender: TObject);
    procedure izmClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure delClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure poiskChange(Sender: TObject);
    procedure CB1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMTRAYICONNOTIFY(var Msg: TMessage);
message WM_NOTIFYTRAYICON;
  public
    { Public declarations }
     Draging: Boolean;
  X0, Y0: integer;
 end;
var
tray: TNotifyIconData;
TrayIcon: TIcon;
Cur:Tpoint;
  Form1: TForm1;
  planer: array [0..9000,0..3] of string;
  planer1: array [0..9000] of Tdate;
  i,iii,cont:integer;
  sav:textfile;
  vrem : TSYSTEMTIME;
implementation
 
{$R *.dfm}
Procedure zap(zs:integer);
var
i,j,n:integer;
begin
assignfile(sav,'plan.txt');
rewrite(sav);
For i:=0 to 9000 do
If planer[i,0]='' then begin
n:=i-1;
break;
end;
For i:=0 to n do
begin
writeln(sav,planer[i,0]);
writeln(sav,planer[i,1]);
writeln(sav,planer[i,2]);
writeln(sav,planer[i,3]);
writeln(sav,datetostr(planer1[i]));
end;
closefile(sav);
end;
Procedure chit(d:integer);
var
i,j,n:integer;
b:string;
begin
assignfile(sav,'plan.txt');
reset(sav);
i:=0;
while (not EOF(sav)) do
begin
readln(sav,planer[i,0]);
readln(sav,planer[i,1]);
readln(sav,planer[i,2]);
readln(sav,planer[i,3]);
readln(sav,b);
planer1[i]:=strtodate(b);
i:=i+1;
end;
closefile(sav);
end;
Procedure list (k:integer);
var
i,j:integer;
begin
For i:=0 to 9000 do
If planer[i,0]='' then
begin
j:=i;
form1.SG1.RowCount:=j;
break;
end;
If j<20 Then
Form1.sg1.Height:=16+(16*j)+1;
For i:=0 to j-1 do
begin
form1.SG1.Cells[0,i]:=planer[i,0];
form1.SG1.Cells[1,i]:=planer[i,1];
form1.SG1.Cells[2,i]:=planer[i,2];
form1.SG1.Cells[3,i]:=datetostr(planer1[i]);
form1.SG1.Cells[4,i]:=planer[i,3];
end;
end;
Procedure sort(z:integer);
var
obmen: array[0..1,0..3] of string;
obmen1:Tdate;
i,j,n,l,srov:integer;
begin
For i:=0 to 9000 do
If planer[i,0]='' Then
begin
n:=i-1;
break;
end;
For i:=0 to n do
For j:=0 to n-1 do
begin
srov:=CompareDate(planer1[j],planer1[j+1]);
If srov=1 Then
begin
obmen1:=planer1[j];
planer1[j]:=planer1[j+1];
planer1[j+1]:=obmen1;
obmen[0,0]:=planer[j,0];
obmen[0,1]:=planer[j,1];
obmen[0,2]:=planer[j,2];
obmen[0,3]:=planer[j,3];
planer[j,0]:=planer[j+1,0];
planer[j,1]:=planer[j+1,1];
planer[j,2]:=planer[j+1,2];
planer[j,3]:=planer[j+1,3];
planer[j+1,0]:=obmen[0,0];
planer[j+1,1]:=obmen[0,1];
planer[j+1,2]:=obmen[0,2];
planer[j+1,3]:=obmen[0,3];
end;
end;
For i:=0 to n do
For j:=0 to n-1 do
begin
srov:=CompareDate(planer1[j],planer1[j+1]);
If srov=0 Then
If strtoint(planer[j,1])> strtoint(planer[j+1,1])Then
begin
obmen1:=planer1[j];
planer1[j]:=planer1[j+1];
planer1[j+1]:=obmen1;
obmen[0,0]:=planer[j,0];
obmen[0,1]:=planer[j,1];
obmen[0,2]:=planer[j,2];
obmen[0,3]:=planer[j,3];
planer[j,0]:=planer[j+1,0];
planer[j,1]:=planer[j+1,1];
planer[j,2]:=planer[j+1,2];
planer[j,3]:=planer[j+1,3];
planer[j+1,0]:=obmen[0,0];
planer[j+1,1]:=obmen[0,1];
planer[j+1,2]:=obmen[0,2];
planer[j+1,3]:=obmen[0,3];
end;
end;
For i:=0 to n do
For j:=0 to n-1 do
begin
srov:=CompareDate(planer1[j],planer1[j+1]);
If (srov=0) And (strtoint(planer[j,1])= strtoint(planer[j+1,1]))Then
If strtoint(planer[j,2])> strtoint(planer[j+1,2])Then
begin
obmen1:=planer1[j];
planer1[j]:=planer1[j+1];
planer1[j+1]:=obmen1;
obmen[0,0]:=planer[j,0];
obmen[0,1]:=planer[j,1];
obmen[0,2]:=planer[j,2];
obmen[0,3]:=planer[j,3];
planer[j,0]:=planer[j+1,0];
planer[j,1]:=planer[j+1,1];
planer[j,2]:=planer[j+1,2];
planer[j,3]:=planer[j+1,3];
planer[j+1,0]:=obmen[0,0];
planer[j+1,1]:=obmen[0,1];
planer[j+1,2]:=obmen[0,2];
planer[j+1,3]:=obmen[0,3];
end;
end;
end;
Procedure pokaz (i:integer);
begin
Form1.label2.Visible:=True;
Form1.label3.Visible:=True;
Form1.label4.Visible:=True;
Form1.label5.Visible:=True;
Form1.nap.Visible:=True;
Form1.chas.Visible:=true;
Form1.min.Visible:=true;
Form1.mfile.Visible:=true;
form1.obzor.Visible:=true;
Form1.MC1.Visible:=true;
Form1.add.Visible:=true;
Form1.izm.Visible:=true;
Form1.del.Visible:=true;
form1.fonb.Visible:=true;
form1.fonb1.Visible:=true;
end;
Procedure skrit (i:integer);
begin
Form1.label2.Visible:=False;
Form1.label3.Visible:=False;
Form1.label4.Visible:=False;
Form1.label5.Visible:=False;
Form1.nap.Visible:=False;
Form1.chas.Visible:=False;
Form1.min.Visible:=False;
Form1.mfile.Visible:=False;
form1.obzor.Visible:=False;
Form1.MC1.Visible:=False;
Form1.add.Visible:=False;
Form1.izm.Visible:=False;
Form1.del.Visible:=False;
form1.fonb.Visible:=False;
form1.fonb1.Visible:=False;
end;
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
begin
{???????????? ??????? ?? ?????? ? ????}
case Msg.LParam of
WM_LBUTTONDOWN: Form1.Visible:=true;
WM_LBUTTONDBLCLK: Form1.Visible:=false;
WM_RBUTTONDOWN:begin
Windows.GetCursorPos(Cur);
pop1.Popup(cur.x,cur.y);  //????? ?? ???????????? ? ??????????? ??? ???????? ????
end;
end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
try
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, Addr(tray));
finally
Application.Terminate;
end;
end;
 
procedure TForm1.Timer4Timer(Sender: TObject);
var
i:integer;
begin
unit2.Form2.Timer1.Enabled:=true;
timer4.Enabled:=false;
form1.FormStyle:=fsnormal;
unit2.Form2.Edit4.text:='';
unit2.Form2.edit1.Text:='';
unit2.Form2.edit2.Text:='';
unit2.Form2.edit3.text:='';
unit2.Form2.Label2.Caption:='';
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if Draging = true then
  begin
    Form1.Left := Form1.Left + X - X0;
    Form1.top := Form1.top + Y - Y0;
  end;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Draging := true;
  x0 := x;
  y0 := y;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Draging := false;
end;
 
procedure TForm1.close1Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.close1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
close1.Picture:=close2.Picture;
end;
 
procedure TForm1.close4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
close1.Picture:=close3.Picture;
end;
 
procedure TForm1.sverMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sver.Picture:=sver2.Picture;
end;
 
procedure TForm1.sver4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sver.Picture:=sver1.Picture;
end;
 
procedure TForm1.sverClick(Sender: TObject);
begin
form1.Visible:=false;
unit2.Form2.Visible:=true;
end;
 
procedure TForm1.addMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
add.Picture:=add1.Picture;
end;
 
procedure TForm1.izmMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
izm.Picture:=izm1.Picture;
end;
 
procedure TForm1.delMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
del.Picture:=del1.Picture;
end;
 
procedure TForm1.obzorMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
obzor.Picture:=obzor1.Picture;
end;
 
procedure TForm1.fonbMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
add.Picture:=add2.Picture;
del.Picture:=del2.Picture;
izm.Picture:=izm2.Picture;
end;
 
procedure TForm1.fonb1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
obzor.Picture:=obzor2.Picture;
end;
 
procedure TForm1.obzorClick(Sender: TObject);
begin
od1.Execute;
mfile.Text:=od1.FileName;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
d,s:string;
begin
For i:=0 to 9000 do
If planer[i,0]='' Then
begin
j:=i-1;
break;
end;
For i:=0 to j do begin
s:=datetostr(planer1[i]);
d:=datetostr(dtp1.Date);
If s=d then
begin
edit1.Text:=datetostr(dtp1.Date);
sg1.Row:=i;
break;
end;
end;
end;
 
procedure TForm1.addClick(Sender: TObject);
var
i,j:integer;
begin
If nap.Text='' then
ShowMessage('Нужно ввести текст напоминания')
else
If chas.ItemIndex=-1 Then
ShowMessage ('Выберите час')
else
If min.ItemIndex=-1 Then
ShowMessage ('Выберите минуту')
else
If mfile.Text='' then
ShowMessage ('Выбериет звуковой файл')
else
If mc1.Date<date Then
ShowMessage ('Дата меньше текущей')
else
begin
sg1.Visible:=true;
izm.Visible:=true;
del.Visible:=true;
For i:=0 to 9000 do
If planer[i,0]='' Then begin
planer[i,0]:=nap.Text;
planer[i,1]:=chas.Items[chas.itemindex];
planer[i,2]:=min.Items[min.itemindex];
planer[i,3]:=mfile.Text;
planer1[i]:=MC1.Date;
label1.Caption:='Добавлено';
label1.Font.Color:=clRed;
timer1.Enabled:=true;
break;
end;
sort(iii);
list(iii);
zap(iii);
end;
end;
 
procedure TForm1.SG1Click(Sender: TObject);
begin
nap.Text:=planer[sg1.Row,0];
If planer[sg1.Row,1]='00' Then
chas.ItemIndex:=23
else
chas.ItemIndex:=strtoint(planer[sg1.Row,1])-1;
min.ItemIndex:=strtoint(planer[sg1.Row,2])-1;
mfile.Text:=planer[sg1.Row,3];
mc1.Date:=planer1[sg1.Row];
end;
 
procedure TForm1.izmClick(Sender: TObject);
begin
If nap.Text='' then
ShowMessage('Нужно ввести текст напоминания')
else
If chas.ItemIndex=-1 Then
ShowMessage ('Выберите час')
else
If min.ItemIndex=-1 Then
ShowMessage ('Выберите минуту')
else
If mfile.Text='' then
ShowMessage ('Выбериет звуковой файл')
else
If mc1.Date<date Then
ShowMessage ('Дата меньше текущей')
else
begin
planer[sg1.Row,0]:=nap.Text;
planer[sg1.Row,1]:=chas.Items[chas.itemindex];
planer[sg1.Row,2]:=min.Items[min.itemindex];
planer[sg1.Row,3]:=mfile.Text;
planer1[sg1.Row]:=MC1.Date;
label1.Caption:='Изменено';
label1.Font.Color:=clRed;
timer1.Enabled:=true;
sort(iii);
list(iii);
zap(iii);
end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:='Область задач: Выберите задачу';
label1.Font.Color:=clSilver;
timer1.Enabled:=false;
end;
 
procedure TForm1.delClick(Sender: TObject);
var
i,j:integer;
begin
If MessageDlg ('Удалить выбранную задачу?', mtConfirmation, [mbYes, mbNo] ,0) = mrYes then
Begin
For i:=0 to 9000 do
If planer[i,0]='' Then
begin
j:=i-1;
break;
end;
planer[sg1.Row,0]:='';
planer[sg1.Row,1]:='';
planer[sg1.Row,2]:='';
planer[sg1.Row,3]:='';
For i:=sg1.Row to j do
begin
planer[i,0]:=planer[i+1,0];
planer[i+1,0]:='';
planer[i,1]:=planer[i+1,1];
planer[i+1,1]:='';
planer[i,2]:=planer[i+1,2];
planer[i+1,2]:='';
planer[i,3]:=planer[i+1,3];
planer[i+1,3]:='';
planer1[i]:=planer1[i+1];
end;
end;
sort(iii);
list(iii);
zap(iii);
if planer[0,0]='' Then begin
sg1.Visible:=false;
izm.Visible:=false;
del.Visible:=false;
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
rf:textfile;
dip:string;
begin
AssignFile (rf,IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'config.txt');
Reset(rf);
readln(rf,dip);
closefile(rf);
If dip='1' Then
cb1.Checked:=true;
CB1.Top:=36;
DTP1.Top:=36;
poisk.Top:=36;
ShowWindow(Application.Handle,SW_HIDE);
TrayIcon := Application.Icon;
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := TrayIcon.Handle;
szTip := ('Органайзер');
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
chit(iii);
If planer[0,0]='' then
begin
sg1.Visible:=false;
izm.Visible:=false;
del.Visible:=false;
end
else
list(iii);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
unit2.Form2.Edit1.Text:='1';
unit2.Form2.Edit2.Text:='1.mp3';
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var
i,j:integer;
g,g1:string;
begin
GetLocalTime(vrem);
For i:=0 to 900 do
if planer[i,0]='' then
begin
j:=i-1;
break;
end;
For i:=0 to j do
begin
g1:=datetostr(planer1[i]);
g:=datetostr(date);
If g=g1 then
If strtoint(planer[i,1])=vrem.wHour then
If strtoint(planer[i,2])=vrem.wMinute then
begin
cont:=i;
edit1.Text:=inttostr(cont);
unit2.Form2.Edit1.Text:='1';
unit2.Form2.Edit2.Text:=planer[cont,3];
unit2.Form2.Label2.Caption:=planer[cont,0];
unit2.Form2.Visible:=true;
end;
end;
If unit2.Form2.Edit3.Text='1' then
begin
If strtoint(planer[cont,2])<50 then
planer[cont,2]:=inttostr(strtoint(planer[cont,2])+10)
else
If strtoint(planer[cont,1])<23 then
begin
planer[cont,1]:=inttostr(strtoint(planer[cont,1])+1);
planer[cont,2]:='1';
end;
list(iii);
unit2.Form2.Edit3.Text:='';
end;
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
var
i:integer;
begin
If unit2.Form2.Edit4.text='1' Then
begin
i:=i+1;
edit2.Text:=inttostr(i);
unit2.Form2.Edit4.text:='';
unit2.Form2.edit1.Text:='';
unit2.Form2.edit2.Text:='';
unit2.Form2.edit3.text:='';
unit2.Form2.mp1.Stop;
unit2.Form2.mp1.Close;
unit2.Form2.timer2.enabled:=false;
timer4.Enabled:=true;
unit2.Form2.Label2.Caption:='';
form1.Visible:=true;
sg1.Row:=cont;
unit2.Form2.image2.Visible:=false;
unit2.Form2.FormStyle:=fsnormal;
form1.FormStyle:=fsstayontop;
end;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Form1.Visible:=true;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
unit2.Form2.Visible:=true;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.poiskChange(Sender: TObject);
var
i,j,k:integer;
s,s1:string;
begin
For i:=0 to 9000 do
If planer[i,0]='' Then
begin
j:=i-1;
break;
end;
k:=length(poisk.Text);
s:=copy(poisk.Text,1,k);
For i:=0 to j do
begin
s1:=copy(planer[i,0],1,k);
If s=s1 then
begin
sg1.Row:=i;
break;
end;
end;
 
end;
 
procedure TForm1.CB1Click(Sender: TObject);
var
rf:textfile;
filep,dip:string;
reg:TRegistry;
begin
AssignFile (rf,IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'config.txt');
Reset(rf);
readln(rf,dip);
closefile(rf);
If cb1.Checked=True then  begin
If dip='' Then
MessageDLG ('Внимание! в автозагрузку внесены данные, о запуске Планировщика напоминаний, помните если вы удалите или переместите приложения не убрав галочку автозапуска данные в реесте останутся и система будет выдавать ошибку при запуске.',mtInformation,[mbOk],0);
filep:=ExtractFilePath(Application.ExeName);
filep:=filep+'start.bat';
Reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',true);
reg.WriteString('organ',filep);
reg.CloseKey;
reg.Destroy;
dip:='1';
AssignFile(rf,IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'config.txt');
Reset(rf);
rewrite(rf);
Writeln(rf,dip);
Closefile(rf);
end;
If cb1.Checked=false then
begin
AssignFile (rf,IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'config.txt');
Reset(rf);
readln(rf,dip);
closefile(rf);
Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CURRENT_USER;
   if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true) then
   Reg.DeleteValue('organ');
   Reg.Free;
AssignFile (rf,IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'config.txt');
rewrite(rf);
closefile(rf);
end;
end;
 
end.