Rotina em delphi para o envio automatico de arquivos .pdb, .prc, etc para o schedule do hotsync, possibilitando a transferência de dados entre PC e 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:49:13
Visualizado..: 5880 vezes
Fonte........: AdeN Knowledge DB