【列表5.23】 程序frmOnelnst 的代碼清單。
unit frmOneInst;

interface

uses
   SysUtils, Types, Classes, QGraphics. QControls, QForms, QDialogs,
   QStdCtrls, QExtCtrls, Libc;
type
   TOneInstMainForm = class(TForm)
      Panel1: TPanel;
      ExitBtn: TButton;
      Label1: TLabel;
      Label2: TLabel;
      PIDLabel: TLabel;
      procedure ExitBtnClick(Sender: TObject);
      procedure FormActivate(Sender: TObject);
   private
       { Private declarations }
    public
       { Public declarations }
    end;
 var
    OnetnstMainForm: TOneInstMainForm;
 implementation
 {SR *.xfm}
 procedure TOneInstMainForm,ExitBtnClick(Sender: TObject);
 begin
   Close;
 end;
procedure TOneInstMainForm. FormActivate(Sender: TObject);
begin
 PIDLabel.Caption := 'Process ID: ' + InttoStr(getpid);
end;
end.