Source of v2

v2/Alarmer.pas

@@ -0,0 +1,180 @@
+unit Alarmer;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, Gauges, StdCtrls, sLabel, sEdit, sSpinEdit, sFrameAdapter, ExtCtrls,
+  Mask, sMaskEdit, sCustomComboEdit, sTooledit, sBevel, MPlayer, Buttons,
+  sSpeedButton, sCheckBox, ImgList, acAlphaImageList, sHintManager;
+
+type
+  TFrameIn2 = class(TFrame)
+    sTimePicker1: TsTimePicker;
+    sFrameAdapter1: TsFrameAdapter;
+    Timer1: TTimer;
+    tstimefx: TsLabelFX;
+    sSpeedButton1: TsSpeedButton;
+    sCheckBox1: TsCheckBox;
+    sCheckBox2: TsCheckBox;
+    ssb_pict: TsSpeedButton;
+    sAlphaImageList1: TsAlphaImageList;
+    sLabel1: TsLabel;
+    pass1timer: TTimer;
+    sHintManager1: TsHintManager;
+    sFilenameEdit1: TsFilenameEdit;
+    procedure sCheckBox2Click(Sender: TObject);
+    procedure sTimePicker1Change(Sender: TObject);
+    procedure pass1timerTimer(Sender: TObject);
+    procedure ssb_pictClick(Sender: TObject);
+    procedure sSpeedButton1Click(Sender: TObject);
+    procedure sFilenameEdit1AfterDialog(Sender: TObject; var Name: string;
+      var Action: Boolean);
+    procedure Timer1Timer(Sender: TObject);
+
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form2: TFrameIn2;
+  p,a:boolean;
+
+implementation
+
+{$R *.dfm}
+
+uses Main;
+
+
+
+procedure TFrameIn2.pass1timerTimer(Sender: TObject);
+begin
+sTimePicker1.Text:=form1.Memo1.Lines[1];
+form1.MediaPlayer1.FileName:=form1.Memo1.Lines[2];
+sFilenameEdit1.FileName:=form1.MediaPlayer1.FileName;
+if strtobool(form1.Memo1.Lines[3]) then ssb_pict.Click;
+sCheckBox2.Checked:=strtobool(form1.Memo1.Lines[4]);
+if (form1.sSkinManager1.SkinName='WLM (internal)')or(form1.sSkinManager1.SkinName='Office2010 Blue (internal)')
+then begin tstimefx.Kind.Color:=clBlue; tstimefx.Shadow.Color:=clSkyBlue; end;
+if (form1.sSkinManager1.SkinName='Vista (internal)')
+then begin tstimefx.Kind.Color:=clLime; tstimefx.Shadow.Color:=clMoneyGreen; end;
+pass1timer.Enabled:=false;
+pass1timer.Free;
+end;
+
+procedure TFrameIn2.sCheckBox2Click(Sender: TObject);
+begin
+if sCheckBox2.Checked
+then form1.Memo1.Lines[4]:='1'
+else form1.Memo1.Lines[4]:='0';
+end;
+
+procedure TFrameIn2.sFilenameEdit1AfterDialog(Sender: TObject; var Name: string;
+  var Action: Boolean);
+begin
+form1.MediaPlayer1.FileName:=Name;
+sFilenameEdit1.Text:=sFilenameEdit1.shortname;
+form1.Memo1.Lines[2]:=Name;
+end;
+
+procedure TFrameIn2.ssb_pictClick(Sender: TObject);
+begin
+if sCheckBox1.Checked
+then begin sCheckBox1.Checked:=false; form1.Memo1.Lines[3]:='0'; end
+else begin sCheckBox1.Checked:=true; a:=true; form1.Memo1.Lines[3]:='1'; end;
+end;
+
+procedure TFrameIn2.sSpeedButton1Click(Sender: TObject);
+begin
+if form1.MediaPlayer1.Mode=mpPlaying then
+begin
+sAlphaImageList1.GetBitmap32(2, sSpeedButton1.Glyph);
+form1.MediaPlayer1.Stop;
+form1.MediaPlayer1.Close;
+p:=false;
+sLabel1.Caption:='íå'+#13+'ïðîèãð.';
+exit;
+end;
+
+
+form1.MediaPlayer1.Open;
+form1.MediaPlayer1.Play;
+p:=true;
+sAlphaImageList1.GetBitmap32(3, sSpeedButton1.Glyph);
+
+end;
+
+procedure TFrameIn2.sTimePicker1Change(Sender: TObject);
+begin
+form1.Memo1.Lines[1]:=sTimePicker1.Text;
+end;
+
+procedure TFrameIn2.Timer1Timer(Sender: TObject);
+begin
+tstimefx.Caption:=FormatDateTime('hh:mm:ss',Now());
+
+if sCheckBox1.Checked
+then sAlphaImageList1.GetBitmap32(1, ssb_pict.Glyph)
+else sAlphaImageList1.GetBitmap32(0, ssb_pict.Glyph);
+
+if c then
+begin
+sFilenameEdit1.Text:=form1.MediaPlayer1.FileName;
+if form1.MediaPlayer1.Mode=mpPlaying
+then sAlphaImageList1.GetBitmap32(3, sSpeedButton1.Glyph);
+c:=false;
+end;
+
+if p then
+begin
+slabel1.Caption:=
+'Ïðîèãð.:'+#13+
+inttostr(round((100*form1.MediaPlayer1.Position)/form1.MediaPlayer1.length))+'%';
+
+if form1.MediaPlayer1.Position=form1.MediaPlayer1.Length then
+begin
+form1.MediaPlayer1.Stop;
+if sCheckBox2.Checked then sSpeedButton1.Click
+else begin
+sAlphaImageList1.GetBitmap32(2, sSpeedButton1.Glyph);
+p:=false;
+sLabel1.Caption:='íå'+#13+'ïðîèãð.';
+end;
+end;
+end;
+
+if sFilenameEdit1.text='' then
+begin
+sCheckBox1.Enabled:=false;
+sCheckBox2.Enabled:=false;
+ssb_pict.Enabled:=false;
+sSpeedButton1.Enabled:=false;
+end else begin
+sCheckBox1.Enabled:=true;
+sCheckBox2.Enabled:=true;
+ssb_pict.Enabled:=true;
+sSpeedButton1.Enabled:=true;
+end;
+
+// alarmer
+if a then
+begin
+if sCheckBox1.Checked then
+if sTimePicker1.Text=FormatDateTime('hh:mm',Now())
+then begin
+sSpeedButton1.Click;
+a:=false;
+end;
+end;
+// end_alarmner
+
+if sCheckBox1.Checked then
+form1.TrayIcon1.Hint:='Info Utility v.5.1'+#13+'Çâîíîê â: '+sTimePicker1.Text+#13+
+'Ìåëîäèÿ: '+form1.MediaPlayer1.FileName
+else form1.TrayIcon1.Hint:='Info Utility v.5.1'+#13+'Áóäèëüíèê âûêëþ÷åí';
+end;
+
+end.

v2/DiskInfo.dfm

@@ -0,0 +1,102 @@
+object FrameIn: TFrameIn
+  Tag = 5
+  Left = 0
+  Top = 0
+  Width = 284
+  Height = 87
+  ParentShowHint = False
+  ShowHint = True
+  TabOrder = 0
+  TabStop = True
+  object sLabelFX1: TsLabelFX
+    Left = 8
+    Top = 0
+    Width = 100
+    Height = 34
+    Caption = 'sLabelFX1'
+    ParentFont = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clBlack
+    Font.Height = -20
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Kind.KindType = ktCustom
+    Kind.Color = clTeal
+    Shadow.Mode = smCustom
+    Shadow.Color = clMoneyGreen
+    Shadow.BlurCount = 5
+  end
+  object sProgressBar1: TsProgressBar
+    Left = 8
+    Top = 35
+    Width = 257
+    Height = 17
+    Hint = 
+      #1043#1088#1072#1092#1080#1095#1077#1089#1082#1086#1077' '#1087#1088#1077#1076#1089#1090#1072#1074#1083#1077#1085#1080#1103' '#1089#1074#1086#1073#1086#1076#1085#1086#1075#1086' '#1084#1077#1089#1090#1072' '#1085#1072' '#1085#1086#1089#1080#1090#1077#1083#1077', '#1074' '#1079#1072#1074#1080#1089#1080 +
+      #1084#1086#1089#1090#1080' '#1086#1090' '#1077#1075#1086' '#1086#1073#1098#1105#1084#1072'.'
+    ParentShowHint = False
+    Smooth = True
+    ShowHint = True
+    TabOrder = 0
+    SkinData.SkinSection = 'GAUGE'
+  end
+  object DriveComboBox1: TDriveComboBox
+    Left = 8
+    Top = 58
+    Width = 257
+    Height = 19
+    Hint = 
+      #1042#1099#1073#1077#1088#1080#1090#1077' '#1080#1079' '#1101#1090#1086#1075#1086' '#1074#1099#1087#1072#1076#1072#1102#1097#1077#1075#1086' '#1089#1087#1080#1089#1082#1072' '#1085#1086#1089#1080#1090#1077#1083#1100', '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1103' '#1086' '#1082#1086#1090#1086 +
+      #1088#1086#1084' '#1074#1072#1089' '#1080#1085#1090#1077#1088#1080#1089#1091#1077#1090'.'
+    Color = clGreen
+    ParentShowHint = False
+    ShowHint = True
+    TabOrder = 1
+    OnChange = DriveComboBox1Change
+  end
+  object sFrameAdapter1: TsFrameAdapter
+    SkinData.SkinSection = 'BARPANEL'
+    Left = 248
+  end
+  object Timer1: TTimer
+    Interval = 50
+    OnTimer = Timer1Timer
+    Left = 216
+  end
+  object pass1timer: TTimer
+    Interval = 50
+    OnTimer = pass1timerTimer
+    Left = 280
+    Top = 65
+  end
+  object sHintManager1: TsHintManager
+    HintKind.Style = hsComics
+    HintKind.Radius = 21
+    HintKind.BevelWidth = 2
+    HintKind.ExOffset = 0
+    HintKind.GradientData = '7256171;10842177;97;0;0;10842177;10842177;0;0;0'
+    HintKind.GradientPercent = 86
+    HintKind.Bevel = 1
+    HintKind.Color = 11992314
+    HintKind.ColorBorderTop = 16384
+    HintKind.ColorBorderBottom = clGreen
+    HintKind.Transparency = 13
+    HintKind.ShadowBlur = 5
+    HintKind.ShadowEnabled = True
+    HintKind.ShadowOffset = 6
+    HintKind.ShadowTransparency = 54
+    HintKind.MarginH = 9
+    HintKind.MarginV = 1
+    HintKind.MaxWidth = 213
+    HintKind.Font.Charset = DEFAULT_CHARSET
+    HintKind.Font.Color = clWhite
+    HintKind.Font.Height = -11
+    HintKind.Font.Name = 'Tahoma'
+    HintKind.Font.Style = [fsBold]
+    PauseHide = 3000
+    Predefinitions = shCustom
+    SkinSection = 'HINT'
+    Left = 75
+    Top = 65531
+  end
+end

v2/DiskInfo.pas

@@ -0,0 +1,94 @@
+unit DiskInfo;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, Gauges, sFrameAdapter, StdCtrls, sCheckBox, ComCtrls, sTrackBar,
+  FileCtrl, sLabel, acProgressBar, sHintManager, ExtCtrls //,
+  //MSI_Common, MSI_Disk, ExtCtrls
+  ;
+
+type
+  TFrameIn = class(TFrame)
+    sFrameAdapter1: TsFrameAdapter;
+    sProgressBar1: TsProgressBar;
+    sLabelFX1: TsLabelFX;
+    DriveComboBox1: TDriveComboBox;
+    Timer1: TTimer;
+    pass1timer: TTimer;
+    sHintManager1: TsHintManager;
+    procedure DriveComboBox1Change(Sender: TObject);
+    procedure pass1timerTimer(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form3: TFrameIn;
+  str: string[1];
+
+implementation
+
+uses Main;
+
+{$R *.dfm}
+
+function DConvert (DCB1:char):byte;
+begin
+
+end;
+
+procedure TFrameIn.DriveComboBox1Change(Sender: TObject);
+begin
+form1.Memo1.Lines[0]:=DriveComboBox1.Drive;
+
+//ShowMessage(inttostr(DiskFree(3) ));
+
+{
+ShowMessage(
+  inttostr(
+    DiskFree( ord(DriveComboBox1.Drive)-96 )
+  )+' - '+DriveComboBox1.Drive+' - '+inttostr(ord(DriveComboBox1.Drive)-99)
+);
+}
+end;
+
+procedure TFrameIn.pass1timerTimer(Sender: TObject);
+begin
+str:=form1.Memo1.Lines[0];
+//DriveComboBox1.Drive:=str[1];
+pass1timer.Enabled:=false;
+pass1timer.Free;
+end;
+
+procedure TFrameIn.Timer1Timer(Sender: TObject);
+begin
+//MiTeC_Disk1.Drive:=DriveComboBox1.Drive+':';
+
+sProgressBar1.Max:=DiskSize( ord(DriveComboBox1.Drive)-96 ) div 1024 div 1024;
+sProgressBar1.Position:=DiskFree( ord(DriveComboBox1.Drive)-96 ) div 1024 div 1024;
+
+
+sLabelFX1.Caption:='Ñâîáîäíî íà '+UpCase(DriveComboBox1.Drive)+':\ '+inttostr(DiskFree( ord(DriveComboBox1.Drive)-96 )div 1024 div 1024)+' Ìá';
+
+{case MiTeC_Disk1.MediaType of
+dtUnknown:sLabelFX1.Caption:='Unknown disk type!';
+dtNotExists:sLabelFX1.Caption:='Disk not in drive!';
+dtRemovable:sLabelFX1.Caption:='flash drive';
+dtCDROM: sLabelFX1.Caption:='It''s CD or DVD.';
+end;
+}
+
+if DiskFree( ord(DriveComboBox1.Drive)-96 )=0 then sLabelFX1.Caption:=UpCase(DriveComboBox1.Drive)+':\ - ýòî CD èëè DVD.';
+if DiskFree( ord(DriveComboBox1.Drive)-96 )=-1 then sLabelFX1.Caption:='Óñòðîéñòâî '+UpCase(DriveComboBox1.Drive)+':\ - ïóñòîå!';
+
+
+
+form1.TrayIcon1.Hint:='Info Utility v.5.1'+#13+sLabelFX1.Caption;
+end;
+
+end.

v2/Frame152.dfm

@@ -0,0 +1,12 @@
+object Frame2: TFrame2
+  Tag = 5
+  Left = 0
+  Top = 0
+  Width = 181
+  Height = 168
+  TabOrder = 0
+  TabStop = True
+  object sFrameAdapter1: TsFrameAdapter
+    SkinData.SkinSection = 'GROUPBOX'
+  end
+end