Rotina em delphi que permite o envio de arquivos .PRC, .PDB, etc para o HotSync, schedulando-o na lista de arquivos a ser enviado para o Palm.

Procedure SendToHotsync(FileName:String); Var Path,KeyPath : String;     reg : TRegistry; Begin     KeyPath := '\prcFile\Shell\open\command';     reg     := TRegistry.Create;     Try       Reg.RootKey := HKEY_CLASSES_ROOT;       If reg.OpenKey(KeyPath,False) = True Then Path := Reg.ReadString('');       If Reg.ValueExists('') Then Begin          Delete(Path,Length(Path)-2,2);          ShellExecute(0,nil,PChar(Path),PChar(FileName),nil,sw_shownormal);       End;       Reg.CloseKey;   Finally      reg.Free;   End; End;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi; Palm OS;
Data.........: 22/01/2002 10:48:49
Visualizado..: 5366 vezes
Fonte........: AdeN Knowledge DB