console.pas

来自「Delphi通讯源码。可给做通讯的朋友参考。」· PAS 代码 · 共 38 行

unit console;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, CtlPanel;

type
  TAppletModule1 = class(TAppletModule)
    procedure AppletModuleActivate(Sender: TObject; Data: Integer);
  private
  { private declarations }
  protected
  { protected declarations }
  public
  { public declarations }
  end;

var
  AppletModule1: TAppletModule1;

implementation

{$R *.DFM}
uses
  DPCon;

procedure TAppletModule1.AppletModuleActivate(Sender: TObject;
  Data: Integer);
begin
     with Tfrmcfg.CreateParented(Application.ControlPanelHandle) do
     begin
       ShowModal;
       free;
     end;
end;

end.