[Borland Delphi] Yahoo! ETS & ID

[c0smyn]

Adaugati sus la uses: Registry

Vom face o mica functie ca sa ne pice mai usor

function ReadRegistry(Mykey:string; MyField: string): string;
var
  Reg: TRegistry;
begin
Reg := 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-ului
ShowMessage(ReadRegistry('Software\Yahoo\Pager', 'ETS')); // vizualizarea ets-ului

Asta e tot Enjoy

[krystyano]

ms ...

ai ce invata din asta (cred)