| /trunk/_Batch/processDir.bat |
|---|
| 4,3 → 4,4 |
| call "%%~dp0%%\cleanDir.bat" "%~1" |
| call "%%~dp0%%\signExe.bat" "%~1\*.exe" |
| call "%%~dp0%%\signExe.bat" "%~1\*.dll" |
| /trunk/Delphi Code/QuerySystemMenu/Demo.exe |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| /trunk/Delphi Code/QuerySystemMenu/Main.pas |
|---|
| 23,11 → 23,16 |
| asdasdjknsafjnaskfnakjf1: TMenuItem; |
| askfnjakfnkjasndfkjandf1: TMenuItem; |
| fkjafnjkasndf1: TMenuItem; |
| Button1: TButton; |
| Edit1: TEdit; |
| Timer2: TTimer; |
| procedure FormCreate(Sender: TObject); |
| procedure FormDestroy(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure SysMenuOpened(Sender: TObject); |
| procedure SysMenuClosed(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Timer2Timer(Sender: TObject); |
| private |
| x: TQuerySystemMenu; |
| end; |
| 51,6 → 56,11 |
| Label1.Caption := TimeToStr(Now()); |
| end; |
| procedure TMainForm.Button1Click(Sender: TObject); |
| begin |
| timer1.Enabled := true; |
| end; |
| procedure TMainForm.FormCreate(Sender: TObject); |
| begin |
| x := TQuerySystemMenu.Create(Handle); |
| 63,9 → 73,25 |
| x.Destroy; |
| end; |
| // Bug: Traybar-Menu... |
| // Bug: Traybar-Icon-Popup... |
| // Nicht beachtet: Shortcuts werden versehentlich gedrückt? |
| // (System-Shortcuts, Windows-Programme-Shortcuts (*.lnk), oder MainMenu Shortcuts? |
| procedure TMainForm.Timer1Timer(Sender: TObject); |
| begin |
| // CheckBox1.Checked := x.IsSystemMenuOpened; |
| Keybd_Event(Ord('S'), 1, 0, 0); |
| Keybd_Event(Ord('S'), 1, KEYEVENTF_KEYUP, 0); |
| end; |
| // WARNUNG: FOCUSED ist nicht gegeben bei |
| // Popups (der eigenen VCL), Menüs (system, mainmenu...), etc! |
| procedure TMainForm.Timer2Timer(Sender: TObject); |
| begin |
| if Edit1.Focused then Edit1.Color := clred |
| else edit1.Color := clwhite; |
| end; |
| end. |
| /trunk/Delphi Code/QuerySystemMenu/Main.dfm |
|---|
| 38,7 → 38,25 |
| ParentFont = False |
| TabOrder = 0 |
| end |
| object Button1: TButton |
| Left = 216 |
| Top = 264 |
| Width = 75 |
| Height = 25 |
| Caption = 'Button1' |
| TabOrder = 1 |
| OnClick = Button1Click |
| end |
| object Edit1: TEdit |
| Left = 352 |
| Top = 224 |
| Width = 121 |
| Height = 21 |
| TabOrder = 2 |
| Text = 'tim' |
| end |
| object Timer1: TTimer |
| Enabled = False |
| Interval = 100 |
| OnTimer = Timer1Timer |
| Left = 400 |
| 81,4 → 99,10 |
| Caption = 'askfnjakfnkjasndfkjandf' |
| end |
| end |
| object Timer2: TTimer |
| Interval = 100 |
| OnTimer = Timer2Timer |
| Left = 496 |
| Top = 184 |
| end |
| end |
| /trunk/_PostBuild.bat |
|---|
| 21,6 → 21,7 |
| call _Batch\processDir.bat "SignExample" |
| call _Batch\processDir.bat "." |
| call _Batch\processDir.bat "StatusMon 3.0\Dll-Test" |
| call _Batch\processDir.bat "StatusMon 3.0" |
| cd "StatusMon 3.0" |
| "C:\Programme\Inno Setup 5\iscc.exe" "StatusMon.iss" |
| /trunk/StatusMon 3.0/StatusMon.res |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| /trunk/StatusMon 3.0/Main.dfm |
|---|
| 2,7 → 2,7 |
| Left = 219 |
| Top = 164 |
| Caption = 'ViaThinkSoft Status Monitor' |
| ClientHeight = 472 |
| ClientHeight = 492 |
| ClientWidth = 730 |
| Color = clBtnFace |
| Font.Charset = DEFAULT_CHARSET |
| 23,7 → 23,7 |
| Left = 0 |
| Top = 0 |
| Width = 730 |
| Height = 447 |
| Height = 467 |
| Align = alClient |
| ColCount = 3 |
| DefaultRowHeight = 18 |
| 34,7 → 34,7 |
| TabOrder = 0 |
| OnDblClick = MonitorGridDblClick |
| OnMouseDown = MonitorGridMouseDown |
| ExplicitHeight = 427 |
| ExplicitHeight = 447 |
| ColWidths = ( |
| 214 |
| 359 |
| 42,7 → 42,7 |
| end |
| object LastCheckPanel: TPanel |
| Left = 0 |
| Top = 447 |
| Top = 467 |
| Width = 730 |
| Height = 25 |
| Align = alBottom |
| 49,7 → 49,7 |
| BevelOuter = bvNone |
| Caption = '...' |
| TabOrder = 1 |
| ExplicitTop = 427 |
| ExplicitTop = 447 |
| end |
| object TrayPopupMenu: TPopupMenu |
| Left = 8 |
| 209,7 → 209,7 |
| Left = 8 |
| Top = 144 |
| Bitmap = { |
| 494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 |
| 494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 |
| 0000000000003600000028000000400000001000000001002000000000000010 |
| 0000000000000000000000000000000000000000000000000000000000000000 |
| 0000000000000000000000000000000000000000000000000000000000000000 |
| 345,6 → 345,7 |
| AE73CFF300000000D6E787E100000000EE2F000000000000FC1F000000000000 |
| F80F00000000000080080001000000001001000300000000F01F000700000000 |
| F83F000F00000000E477FE8B00000000CF6BFFDF000000009E75FF7700000000 |
| BE7BFFDF00000000FEFFFFFF00000000} |
| BE7BFFDF00000000FEFFFFFF0000000000000000000000000000000000000000 |
| 000000000000} |
| end |
| end |
| /trunk/StatusMon 3.0/StatusMon.bdsproj |
|---|
| 150,7 → 150,7 |
| <VersionInfo Name="MajorVer">3</VersionInfo> |
| <VersionInfo Name="MinorVer">0</VersionInfo> |
| <VersionInfo Name="Release">0</VersionInfo> |
| <VersionInfo Name="Build">17</VersionInfo> |
| <VersionInfo Name="Build">22</VersionInfo> |
| <VersionInfo Name="Debug">False</VersionInfo> |
| <VersionInfo Name="PreRelease">False</VersionInfo> |
| <VersionInfo Name="Special">False</VersionInfo> |
| 162,7 → 162,7 |
| <VersionInfoKeys> |
| <VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys> |
| <VersionInfoKeys Name="FileDescription">ViaThinkSoft Status Monitor Checker</VersionInfoKeys> |
| <VersionInfoKeys Name="FileVersion">3.0.0.17</VersionInfoKeys> |
| <VersionInfoKeys Name="FileVersion">3.0.0.22</VersionInfoKeys> |
| <VersionInfoKeys Name="InternalName">StatMon3</VersionInfoKeys> |
| <VersionInfoKeys Name="LegalCopyright">(C) 2010 ViaThinkSoft</VersionInfoKeys> |
| <VersionInfoKeys Name="LegalTrademarks">Keine</VersionInfoKeys> |
| /trunk/StatusMon 3.0/Output/setup.exe |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| /trunk/StatusMon 3.0/Main.pas |
|---|
| 2,6 → 2,8 |
| (* |
| # download einer primer-tabelle? |
| bug: wenn man einen eintrag ändert oder hinzufügt, werden alle "status" auf unknown zurückgesetzt |
| td: aktualisierenbutton/f5 erlauben |
| del-button... |
| 8,6 → 10,16 |
| icon: gray(internetdown),red,green |
| reg-write fehler erkennen |
| statustext einführen (format 2.0) |
| rote listeneinträge bei fehlern |
| f5 möglichkeit geben? |
| nur 1 instanz zulassen |
| spaltenindizes 0,1,2 in constanten packen |
| Future |
| ------ |
| 106,6 → 118,7 |
| private |
| RealClose: boolean; |
| WarnAtConnectivityFailure: boolean; |
| StatCache: TStringList; |
| procedure TaskbarEvent(var Msg: TMessage); |
| Message WM_TASKABAREVENT; |
| procedure OnQueryEndSession(var Msg: TWMQueryEndSession); |
| 233,6 → 246,7 |
| procedure TMainForm.FormDestroy(Sender: TObject); |
| begin |
| StatCache.Free; |
| NotifyIconChange(NIM_DELETE); |
| end; |
| 242,6 → 256,12 |
| // RightAlignHelpMenuItem; |
| StatCache := TStringList.Create; |
| // Kommt sicherlich nicht in irgendeiner URL vor! |
| // #0 funktioniert nicht |
| StatCache.NameValueSeparator := #1; |
| NotifyIconChange(NIM_ADD); |
| MonitorGrid.Rows[0].Add(LNG_COLUMN_NAME); |
| 349,6 → 369,7 |
| reg: TRegistry; |
| st: TStringList; |
| i: Integer; |
| MonitorUrl, CachedStat: String; |
| begin |
| reg := TRegistry.Create; |
| st := TStringList.Create; |
| 364,8 → 385,11 |
| begin |
| MonitorGrid.Rows[i+1].Clear; |
| MonitorGrid.Rows[i+1].Add(st.Strings[i]); |
| MonitorGrid.Rows[i+1].Add(reg.ReadString(REG_VAL_URL)); |
| MonitorGrid.Rows[i+1].Add(LNG_STAT_UNKNOWN); |
| MonitorUrl := reg.ReadString(REG_VAL_URL); |
| MonitorGrid.Rows[i+1].Add(MonitorUrl); |
| CachedStat := StatCache.Values[MonitorUrl]; |
| If CachedStat = '' then CachedStat := LNG_STAT_UNKNOWN; |
| MonitorGrid.Rows[i+1].Add(CachedStat); |
| end; |
| end; |
| reg.CloseKey; |
| 500,6 → 524,8 |
| ServerName := MonitorGrid.Rows[i].Strings[0]; |
| MonitorUrl := MonitorGrid.Rows[i].Strings[1]; |
| if MonitorUrl = '' then Exit; // Passiert, wenn Create() aufgehalten wird (z.B. mit ShowMessage) |
| MonitorGrid.Rows[i].Strings[2] := LNG_STAT_CHECKING; |
| Application.ProcessMessages; |
| 508,6 → 534,7 |
| if x = msOK then |
| begin |
| MonitorGrid.Rows[i].Strings[2] := LNG_STAT_OK; |
| StatCache.Values[MonitorUrl] := LNG_STAT_OK; |
| NotifyIconChange(NIM_MODIFY); |
| if ShowSuccess then |
| begin |
| 517,6 → 544,7 |
| else if x = msStatusWarning then |
| begin |
| MonitorGrid.Rows[i].Strings[2] := LNG_STAT_WARNING; |
| StatCache.Values[MonitorUrl] := LNG_STAT_WARNING; |
| NotifyIconChange(NIM_MODIFY); |
| if MessageBox(Handle, PChar(Format(LNG_ALERT_STATUS_WARNING, [ServerName, MonitorUrl])), PChar(LNG_ALERT_CAPTION), MB_ICONWARNING or MB_YESNOCANCEL) = IDYES then |
| begin |
| 526,6 → 554,7 |
| else if x = msMonitorParseError then |
| begin |
| MonitorGrid.Rows[i].Strings[2] := LNG_STAT_PARSEERROR; |
| StatCache.Values[MonitorUrl] := LNG_STAT_PARSEERROR; |
| NotifyIconChange(NIM_MODIFY); |
| if MessageBox(Handle, PChar(Format(LNG_ALERT_MONITOR_FAILURE, [ServerName, MonitorUrl])), PChar(LNG_ALERT_CAPTION), MB_ICONWARNING or MB_YESNOCANCEL) = IDYES then |
| begin |
| 535,6 → 564,7 |
| else if x = msMonitorGeneralError then |
| begin |
| MonitorGrid.Rows[i].Strings[2] := LNG_STAT_GENERALERROR; |
| StatCache.Values[MonitorUrl] := LNG_STAT_GENERALERROR; |
| NotifyIconChange(NIM_MODIFY); |
| if MessageBox(Handle, PChar(Format(LNG_ALERT_MONITOR_FAILURE, [ServerName, MonitorUrl])), PChar(LNG_ALERT_CAPTION), MB_ICONWARNING or MB_YESNOCANCEL) = IDYES then |
| begin |
| 544,6 → 574,7 |
| else if x = msServerDown then |
| begin |
| MonitorGrid.Rows[i].Strings[2] := LNG_STAT_SERVERDOWN; |
| StatCache.Values[MonitorUrl] := LNG_STAT_SERVERDOWN; |
| NotifyIconChange(NIM_MODIFY); |
| // Es besteht eine Internetverbindung, daher ist wohl was mit dem |
| // Server nicht in Ordnung |
| 556,6 → 587,7 |
| else if x = msInternetBroken then |
| begin |
| MonitorGrid.Rows[i].Strings[2] := LNG_STAT_INTERNETBROKEN; |
| StatCache.Values[MonitorUrl] := LNG_STAT_INTERNETBROKEN; |
| NotifyIconChange(NIM_MODIFY); |
| if not WarnAtConnectivityFailure then |
| begin |
| /trunk/StatusMon 3.0/StatusMon.exe |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |