mainfrm.pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit MainFrm;

interface

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

type
  TMainForm = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    WindowsLabel: TLabel;
    SystemLabel: TLabel;
    ApplicationLabel: TLabel;
    TempLabel: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
 var Dir:Array[0..255] of char;
begin
 GetWindowsDirectory(Dir,SizeOf(Dir));
 WindowsLabel.Caption:=StrPas(Dir);
 GetSystemDirectory(Dir,SizeOf(Dir));
 SystemLabel.Caption:=StrPas(Dir);
 GetTempPath(SizeOf(Dir),Dir);              
 TempLabel.Caption:=StrPas(Dir);       
 GetCurrentDirectory(SizeOf(Dir),Dir);
 ApplicationLabel.Caption:=StrPas(Dir);
end;

end.