Saber ID de mi PDA

[JordiP]

Buenas queria saber como puedo saber la ID de mi PDA. Tengo entendido que cada PDA tiene un numero UNICO y me gustaria desde mi programa obtenerlo.

He probado un codigo que encontre y que utiliza

Código Delphi [-]
 
KernelIoControl(IOCTL_HAL_GET_DEVICEID, IntPtr.Zero, _
0, outbuff, nBuffSize, dwOutBytes)

Va bien, pero no es el ID UNICO que necesito, me da un numero y creo que es solo del tipo de procesador, no lo se, lo unico es que en 2 PDA iguales (misma marca y modelo) me da el miemo numero en ambas.

Si alguien puede ayudarme, se lo agradecería.

Feliz Año nuevo a todos.

[[white_zombie]]

Hola, en windows mobile existe la función GetDeviceUniqueID, un ejemplo de como usarla lo puedes encontrar el la wiki de Lazarus para wince. Espero que te sirva de ayuda.

Un Saludo.

[JordiP]

Gracias white_zombie, he aplicado el ejemplo que aparece en el enlace y no logro saber cual es el valor que necesito, en este caso el ID de mi dispositivo PDA.

<System.Runtime.InteropServices.DllImport("coredll.dll")> _
Private Shared Function GetDeviceUniqueID(ByVal appdata As Byte(), ByVal cbApplictionData As Integer, ByVal dwDeviceIDVersion As Integer, ByVal deviceIDOuput As Byte(), ByRef pcbDeviceIDOutput As Integer) As Integer
End Function
 
Private Function GetDeviceIdUnique(ByVal appData As String) As Byte()
  Dim appDataBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(appData)
  Dim outputSize As Integer = 20
  Dim output(19) As Byte
  Dim result As Integer = GetDeviceUniqueID(appDataBytes, appDataBytes.Length, 1, output, outputSize)
 
  Return output
End Function

Hasta aqui llego pero no se que variable es la que me devuelve el ID, teoricamente es "outPut", que viene en Bytes, intento convertirlos a String y lo que veo son todos ceros "000000....."

 
Dim sb As New StringBuilder
Dim i As Integer
 
For i = 0 To outputSize - 1
  sb.Append(String.Format("{0:X2}", output(i)))
Next i
 
MsgBox("Result: " + sb.ToString)

Espero que alguien pueda ayudarme.

Saludos

[JordiP]

He encontrado esto http://www.vb-tips.com/Getting_Windo...Device_ID.aspx y funciona bien.

Gracias de nuevo