Показать сообщение отдельно
Старый 18.10.2010, 22:43   #1 (permalink)
Devil_Boy
Новичок
 
Регистрация: 18.10.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Комментарии

Пожалуйста откоментируйте каждую строку)

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize:= OnMinimizeWindow;
dtpSite.Time:= time;
dtpProg1.Time:= time;
dtpProg2.Time:= time;
end;

procedure TForm1.OnMinimizeWindow(Sender: TObject);
begin
PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbTime.Caption:= timetostr(time);
if (lbTime.Caption)=timetostr(dtpsite. Time) then openprog(edsite.Text);
if (lbTime.Caption)=timetostr(dtpprog1 .Time) then openprog(edprog1.Text);
if (lbTime.Caption)=timetostr(dtpprog2 .Time) then openprog(edprog2.Text);
end;

procedure TForm1.openprog(i: string);
begin
shellexecute(TForm(owner).Handle, nil, PChar(i), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.DefineIconInformation(Action : Integer; IC: TIcon);
var
notifIcData: TNotifyIconData;
begin
with notifIcData do
begin
cbSize := SizeOf(notifIcData);
Wnd := Form1.Handle;
uId := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := WM_USER+1;
hIcon := icon.Handle;
szTip := 'Program';
end;
case action of
1: Shell_NotifyIcon(Nim_Add, @notifIcData);
2: Shell_NotifyIcon(Nim_Delete, @notifIcData);
3: Shell_NotifyIcon(Nim_Modify, @notifIcData);
end;
end;

procedure TForm1.ControlWindow(var MSG: TMessage);
begin
if msg.WParam = SC_MINIMIZE then
begin
DefineIconInformation(1, Application.Icon);
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end else
inherited;
end;

procedure TForm1.MouseReaction(var MSG: TMessage);
var
p: TPoint;
begin
GetCursorPos(p);
case msg.LParam of
WM_LBUTTONUP, WM_LBUTTONDBLCLK:
begin
DefineIconInformation(2, Application.Icon);
Showwindow(Application.Handle, SW_SHOW);
ShowWindow(Handle, SW_SHOW);
end;
WM_RBUTTONUP:
begin
SetForegroundWindow(Handle);
PopupMenu1.Popup(p.X, p.Y);
Postmessage(Handle, WM_NULL,0,0);
end;
end;
end;

procedure TForm1.Show1Click(Sender: TObject);
begin
DefineIconInformation(2, Application.Icon);
ShowWindow(Application.Handle, SW_SHOW);
ShowWindow(Handle,SW_SHOW);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.btTimerClick(Sender: TObject);
begin
timer1.Enabled:= not(timer1.Enabled);
end;

procedure TForm1.brBrowseClick(Sender: TObject);
begin
if opendialog1.Execute then
edprog2.Text:= OpenDialog1.FileName;
end;

end.
Devil_Boy вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070