maisam_ok
دوشنبه 23 خرداد 1384, 20:49 عصر
[color=red][b]با سلام میتوانید توسط کد زیر application خود را رجیستر کنید
rg:=tregistry.Create
rg.RootKey:=Hkey_Local_Machine
if rg.OpenKey('Software\MyCompony\MyApp',True) then
begin
rg.WriteString('MyAppVer','My Application Version 1.0')
rg.CloseKey
rg.Free
end
باید یونیت registry را اضافه کرده در ضمن یک var از نوی tregistry تعریف کنید
rg:=tregistry.Create
rg.RootKey:=Hkey_Local_Machine
if rg.OpenKey('Software\MyCompony\MyApp',True) then
begin
rg.WriteString('MyAppVer','My Application Version 1.0')
rg.CloseKey
rg.Free
end
باید یونیت registry را اضافه کرده در ضمن یک var از نوی tregistry تعریف کنید