Коментарии программы

[Devil_Boy]

Помогите пожалуйста откоментировать строки)
прошу, очень нужно

unit uLab3;

interface

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

type
TForm1 = class(TForm)
lbPath: TLabel;
lbNow: TLabel;
lbTime: TLabel;
edSite: TEdit;
edProg1: TEdit;
edProg2: TEdit;
Timer1: TTimer;
dtpSite: TDateTimePicker;
dtpProg1: TDateTimePicker;
dtpProg2: TDateTimePicker;
PopupMenu1: TPopupMenu;
btTimer: TButton;
Show1: TMenuItem;
Exit1: TMenuItem;
OpenDialog1: TOpenDialog;
brBrowse: TButton;
Image1: TImage;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure openprog(i: string);
procedure Show1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure btTimerClick(Sender: TObject);
procedure brBrowseClick(Sender: TObject);
protected
procedure OnMinimizeWindow(Sender: TObject);
procedure DefineIconInformation(Action: integer; IC: TIcon);
procedure ControlWindow(var MSG: TMessage); message WM_SYSCOMMAND;
procedure MouseReaction(var MSG: TMessage); message WM_USER+1;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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]

ну же помогите бедному студенту(

[Devil_Boy]

Ну ктонибудь откоментируйте, только процедуры