使用Lazarus在WINCE上获取设备ID和设备名称的例子

bugxiong

获取设备ID：

1. function GetDeviceUniqueID(AppData:LPCWSTR; cbApplictionData:Integer; dwDeviceIDVersion:Integer;
   
2. var deviceIDOuput; var pcbDeviceIDOutput:DWORD):Integer; external 'coredll.dll' name 'GetDeviceUniqueID';
   
3. 
   
4. function GetDeviceID: string;
   
5. var
   
6.   AppData: array[0..19] of WideChar;
   
7.   DeviceID : array[0..19] of Byte;
   
8.   Count: DWORD;
   
9.   s: string;
   
10.   Res, i:Integer;
    
11. begin
    
12.   //not sure about Unicode
    
13.   AppData := Utf8Decode('MY_SIG');//any string you like
    
14.   Count := SizeOf(DeviceID);
    
15.   FillChar(DeviceID, Count, #0);
    
16.   Res := GetDeviceUniqueID(AppData, SizeOF(AppData), 1, DeviceID, Count);
    
17.   if Res = 0 then
    
18.   begin
    
19.     Result := '';
    
20.     for i := 0 to Count -1 do
    
21.     begin
    
22.       if (i > 0) and ((i mod 2) = 0) then
    
23.         Result := Result + '-'; //add space make the string wrap in label
    
24.       Result := Result + IntToHex(DeviceID[i], 2);
    
25.     end;
    
26.   end
    
27.   else
    
28.     Result := '';//error accord
    
29. //  you can MD5 it with your string
    
30. //  Result := MD5Print(MD5Buffer(DeviceID, Count));
    
31. end;

复制代码

获取设备名称：

1. function GetDeviceName: string;
   
2. var
   
3.   aReg:TRegistry;
   
4. begin
   
5.   aReg := TRegistry.Create(KEY_READ);
   
6.   try
   
7.     aReg.RootKey := HKEY_LOCAL_MACHINE;
   
8.     aReg.OpenKey('Ident', False);
   
9.     if aReg.ValueExists('Name') then
   
10.       Result := aReg.ReadString('Name')
    
11.     else
    
12.       Result := 'GUEST';
    
13.   finally
    
14.     aReg.Free;
    
15.   end;
    
16. end;

复制代码