Delphi y Pocket PC

[markdelphi]

Hola quiero contribuir un poco en este foro con un tema en el cual he sufrido mucho ya que carece de información la comunicación de Delphi con una pocket PC especialmente para copiar y mover archivos y acceder al registro de windows Ce espero que sea de utilidad.

[markdelphi]

El siguiente fragmento de codigo sirve para modificar un valor entero del registro de Windows CE

Código Delphi [-]
Var
 Key : PHKey;
 rrc : LongInt;
 n   : LongInt;
 Tam : Word;
 Valor : Integer;
begin
 n := CeRapiInit;
 If n <> 0 then
   Application.MessageBox('Unable to load and initialize RAPI','ERROR', MB_ICONERROR OR MB_OK)
 Else
  Begin
   New(Key);
   rrc:=CeRegOpenKeyEx(HKEY_LOCAL_MACHINE,'Software\\SADI',0,0,Key);
   If rrc <> ERROR_SUCCESS Then
     ShowMessage('No se puede abrir ')
   Else
    Begin
      Valor:=58;
      Tam:=SizeOf(Valor);
      CeRegSetValueEx(Key^,'ID_DIVI',0,REG_DWORD,@Valor,Tam);
      CeRegCloseKey(Key^);
      ShowMessage('Valor cambiado');
    End;
  End

[droguerman]

está muy interesante pero no has pensado poner esto en sección trucos? es más visible y queda disponible más tiempo para verlo

[kakarotv5]

Empezado por markdelphi

Hola quiero contribuir un poco en este foro con un tema en el cual he sufrido mucho ya que carece de información la comunicación de Delphi con una pocket PC especialmente para copiar y mover archivos y acceder al registro de windows Ce espero que sea de utilidad.

¿Has conseguido hacer un programa para pocket PC que se conecte a una base de datos de un servidor web?

¿Sabes si se puede?

Saludos.