dm.pas

一个很不错的系统信息控件

unit DM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Twnd_msicstest_Debug = class(TForm)
    Box: TListBox;
    procedure BoxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure BoxDblClick(Sender: TObject);
  private
  public
  end;

procedure ShowDebug(AMessages: TStrings);

var
  wnd_msicstest_Debug: Twnd_msicstest_Debug;

implementation

uses Clipbrd;

{$R *.dfm}

procedure ShowDebug;
begin
  with Twnd_msicstest_Debug.Create(Application.MainForm) do
    try
      Box.Items.Text:=AMessages.Text;
      ShowModal;
    finally
      Free;
    end;
end;

procedure Twnd_msicstest_Debug.BoxDblClick(Sender: TObject);
begin
  if Box.ItemIndex>-1 then
    Clipboard.AsText:=Box.Items[Box.ItemIndex];
end;

procedure Twnd_msicstest_Debug.BoxKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift=[]) and (Key=vk_escape) then
    Close;
end;

end.