WvForm.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit WvForm;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   StdCtrls;
  6. type
  7.   TForm1 = class(TForm)
  8.     btnVersion: TButton;
  9.     btnPlatform: TButton;
  10.     procedure btnVersionClick(Sender: TObject);
  11.     procedure btnPlatformClick(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17. var
  18.   Form1: TForm1;
  19. implementation
  20. {$R *.DFM}
  21. procedure TForm1.btnVersionClick(Sender: TObject);
  22. begin
  23.   ShowMessage ('Running on Windows: ' +
  24.     IntToStr (Win32MajorVersion) + '.' +
  25.     IntToStr (Win32MinorVersion) + ' (Build ' +
  26.     IntToStr (Win32BuildNumber) + ') ' + #10#13 +
  27.     'Update: ' + Win32CSDVersion)
  28. end;
  29. procedure TForm1.btnPlatformClick(Sender: TObject);
  30. begin
  31.   case Win32Platform of
  32.     VER_PLATFORM_WIN32_WINDOWS: ShowMessage ('Windows 9x');
  33.     VER_PLATFORM_WIN32_NT: ShowMessage ('Windows NT');
  34.   end;
  35. end;
  36. end.