با سلام
function GetRegistryValue(KeyName: string): string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey = HKEY_LOCAL_MACHINE;
// False because we do not want to create it if it doesn't exist
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString('VALUE1');
finally
Registry.Free;
end;
end;
مثال خود دلفیه. فقط یادتون نره که registry رو هم use کنید.
میتونید بقیه توابعش رو ÷یدا کنید
البته بهتره یک الگوریتم واسه کد کردن password بکار ببرید تا احیانا نتونن password رو متوجه بشن. اگه خواستید بگید یک نم.نه واستون e-mail کنم