c0smyn Posted January 16, 2009 Report Share Posted January 16, 2009 Adaugati sus la uses: RegistryVom face o mica functie ca sa ne pice mai usor function ReadRegistry(Mykey:string; MyField: string): string;var Reg: TRegistry;beginReg := TRegistry.Create;Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(MyKey, True) then begin if Reg.ValueExists(MyField) then Result := Reg.ReadString(MyField) else Reg.CloseKey; end;end;Puneti aceasta functie sub " {$R *.dfm} "Pentru vizualizarea id-ului si ets-ului vom folosi urmatorul cod:ShowMessage(ReadRegistry('Software\Yahoo\Pager', 'Yahoo! user id')); // vizualizarea id-uluiShowMessage(ReadRegistry('Software\Yahoo\Pager', 'ETS')); // vizualizarea ets-uluiAsta e tot Enjoy Quote Link to comment Share on other sites More sharing options...
krystyano Posted January 16, 2009 Report Share Posted January 16, 2009 ms ... ai ce invata din asta (cred) Quote Link to comment Share on other sites More sharing options...