开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
ShowLog.pas
资源名称：计算机远程监控.rar　[点击查看]
上传用户：rickyhu
上传日期：2007-05-27
资源大小：842k
文件大小：2k
源码类别：

控制台编程

开发平台：

Delphi

ShowLog.pas：源码内容
  1. ////////////////////////////////////////////////////////////////////////////////
  2. //
  3. // 2004 (C) Copyrights Reserved
  4. // Author:Aureala
  5. //
  6. ////////////////////////////////////////////////////////////////////////////////
  8. unit ShowLog;
  10. interface
  12. uses
  13.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  14.   Dialogs, ExtCtrls, ComCtrls, StdCtrls, UtilTools;
  16. type
  17.   TShowLogForm = class(TForm)
  18.     Panel1: TPanel;
  19.     LVLog: TListView;
  20.     Panel2: TPanel;
  21.     BtnSelectLog: TButton;
  22.     OpenDialog: TOpenDialog;
  23.     Label16: TLabel;
  24.     CBClient: TComboBox;
  25.     Label7: TLabel;
  26.     CBViewItem: TComboBox;
  27.     BtnView: TButton;
  28.     procedure BtnSelectLogClick(Sender: TObject);
  29.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  30.     procedure CBClientChange(Sender: TObject);
  31.     procedure CBViewItemChange(Sender: TObject);
  32.     procedure BtnViewClick(Sender: TObject);
  33.     procedure FormCreate(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  40. var
  41.   ShowLogForm: TShowLogForm;
  43. implementation
  45. {$R *.dfm}
  47. procedure TShowLogForm.BtnSelectLogClick(Sender: TObject);
  48. begin
  49.   OpenDialog.Title:='查看计算机监视日志记录';
  50.   OpenDialog.Filter:='日志记录|*.rec';
  51.   OpenDialog.InitialDir:=ExtractFilePath(ParamStr(0)+'log');
  52.   OpenDialog.Execute;
  53.   if(OpenDialog.FileName<>'') then
  54.   begin
  55.     BtnView.Click;
  56.   end;
  57. end;
  59. procedure TShowLogForm.FormClose(Sender: TObject;
  60.   var Action: TCloseAction);
  61. begin
  62.   Close;
  63.   Release;
  64. end;
  66. procedure TShowLogForm.CBClientChange(Sender: TObject);
  67. begin
  68.   BtnView.Click;
  69. end;
  71. procedure TShowLogForm.CBViewItemChange(Sender: TObject);
  72. begin
  73.   BtnView.Click;
  74. end;
  76. procedure TShowLogForm.BtnViewClick(Sender: TObject);
  77. begin
  78.   try
  79.     LoadLog(OpenDialog.FileName,CBClient.Text,CBViewItem.ItemIndex,LVLog);
  80.   except
  81.     ;
  82.   end;
  83.   if(LVLog.Items.Count<=0) then
  84.     ShowMessage('没有你要查看的日志记录！');
  85. end;
  87. procedure TShowLogForm.FormCreate(Sender: TObject);
  88. begin
  89.   UpdateClient(CBClient);
  90.   CBClient.Items.Strings[0]:='全部';
  91.   CBClient.ItemIndex:=0;
  92. end;
  94. end.