Perdón por el doble post, no pude editar el anterior... Intenté con la siguiente forma
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:= RWUSB('1E034D006F007400', 10);
if USB.USBOpenDriver('\\\USB#VID_0C44&PID_0022#5&17C28CDB&0&3#{9d7debbc-c85d-11d1-9eb4-006008c3a19a}') = True then
memo1.Lines.Add('Phone found!') else
memo1.lines.Add('Phone not found!');
end;
end.
Arrojandome los mismos errores antes mencionados... Probe de la siguiente y compila, pero sin resultados exitosos a la hora de lograr conexion...
Código Delphi
[-]
USBPORT:= CreateFile('\\?\USB1', GENERIC_WRITE or GENERIC_READ, FILE_SHARE_WRITE or FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED OR FILE_ATTRIBUTE_NORMAL, 0);
Copie el device path reemplazando "USB1", pero sin exito como mencioné!!!
Sigo probando, si alguien me sigue ayudando soy feliz!!!
Alan_B!