دخول

musvc · 06-10-2009, 04:27 PM

هل هذا هو ؟

كود :
Uses Registry;

var
  Reg: TRegistry;

If OpenDialog1.Execute then
Begin
  Reg := TRegistry.Create;
  Try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\[color=red]Anything[/color]', True);
    Reg.WriteString('[color=Red]path[/color]', ExtractFilePath(OpenDialog.FileName));
    Reg.CloseKey;
  Except
    MessgaeBox(0, 'لا يمكن كتابة المفتاح', 'Error', $10);
  End;  
  Reg.Free;
end;

[COLOR="Indigo"]فقط غير Anything الى اسم برنامجك او اي شيئ اخر ..
وكذلك path الى اسم المفتاح..

سلام[/COLOR]

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة