我想显示Windows版本和产品详细信息的Vista操作系统使用GetProductInfo
函数在Delphi XE2由一个Senoir成员建议。我已经定义了下面的代码,但我无法编译它。我的代码如下:Windows版本使用GetProductInfo
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)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
type
TGetProductInfoAPI = function(dwOSMajorVersion, dwOSMinorVersion,
dwSpMajorVersion, dwSpMinorVersion: DWORD; pdwReturnedProductType:
PDWORD): BOOL stdcall;
begin
Edit1.Text:=IntToStr(dwOSMajorVersion);
Edit2.Text:=IntToStr(dwOSMinorVersion);
Edit3.Text:=IntToStr(dwSpMajorVersion);
Edit4.Text:=IntToStr(dwSpMinorVersion);
Edit5.Text:=TGetProductInfoAPI.pdwReturnedProductType;
end;
end.
我想我正在犯一些错误,但我无法找到它。请告诉我我犯错的地方。
根本不会调用函数。 – 2013-03-26 18:35:05