列表5.2.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 57 行

【列表5.2】  执行中程序的主框架。
{
   frmLaunched -- Simple program to display command line and environment
}
unit frmLaunched;
interface
uses
   SysUtils, Libc, Types, Classes, QGraphics. QControls, QForms, QDialogs,
   QStdCtrls;
type
   TfrmLaunchedMain = class(TForm)
       Label1: TLabel;
       edCmdLine: TEdit;
       lblProcID: TLabel;
       Label2: TLabel;
       mmEnvironment: TMemo;
       btnExit: TButton;
       lblFilename: TLabel;
       edFilename: TEdit;
       procedure btnExitClick(Sender: TObject);
       procedure FormCreate(Sender: TObject);
    end;
 var
    frmLaunchedMain: TfrmLaunchedMain;
  implementation
  {SR *.xfm}
procedure TfrmLaunchedMain. btnExitClick(Sender: TObject);
begin
   close;
end;

 procedure TfrmLaunchedMain. FormCreate(Sender: TObject);
var
    i : Integer;
    p : PPChar;
    s : string;
 begin
    // display process ID
    lblProcID.Caption := Format ('Process ID = %d', [getpid]);
    // and program name. 0 means current module
   edFilename. Text:= GetModuleName (0);
   // Display command line arguments
   s := ParamStr(0);
   for i := 1 to ParamCount do
      s := s + ' ' + ParamStr(i);
   edCmdLine. Text := s;
   // Display environment
   mmEnvironment. Clear;
   p := envp;
   while p^ <> nil do
   begin
      mmEnvironment. Lines.Add (p^);
      inc (p);
   end;
end;
end.