本文整理自网络,侵删。
unit Unit1;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
function GetWindowsVersionString : AnsiString;
var
VI: TOSVersionInfoA;
begin
VI.dwOSVersionInfoSize := SizeOf(TOSVersioninfoA);
if GetVersionExA(VI) then
with VI do
Result := Trim (
Format(
'%d.%d build %d %s',
[dwMajorVersion, dwMinorVersion,dwBuildNumber,szCSDVersion]
)
)
else
Result:= '';
end;
procedure TForm1.FormCreate(Sender: TObject);beginShowmessage(GetWindowsVersionString);end;
end.
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>