Private Sub Command1_Click Set reg = CreateObject reg. regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\PriorityControl\IRQ8Priority", "1", "REG_DWORD" MsgBox End Sub Private Sub Command2_Click Set reg = CreateObject reg. regdelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\PriorityControl\IRQ8Priority" MsgBox bu anahtarı belki silmek istersiniz diye ekledim delete olarak End Sub Private Sub Command3_Click Set reg = CreateObject reg. regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\HungAppTimeout", "500" MsgBox End Sub Private Sub Command4_Click Set reg = CreateObject reg. regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "0" MsgBox End Sub Private Sub Command5_Click Set reg = CreateObject reg. regwrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\W aitToKillServiceTimeout", "1000" MsgBox End Sub bu kodlarda ekleme ve silme var okumak için hangi kodları kullancaz? mesela HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\PriorityControl\IRQ8Priority deki bi değerin verisini text e nasıl aktarıcam.?

oku = GetSetting mesela;firmaadi = GetSetting("ajan1111", "Ayarlar", "firma", "")ajan1111 ayarlar firmafirma'nın içindede "acan" değeri var. onu firmaadi değişkenine atıyor. ama bu yazdığım vbasic'te direk olarak "SaveSetting" olarak kullandığın zaman "VB and VBA Program Settings" bunun altına yazıyor ve getsetting 'lede burdan okuyor. zel olarak yol belirlemek istiyorsan o ayrı. bulabilirsem onuda yayınlarım Kayalardan kayarım yoktur benim ayarım (;

Private Function degeroku As String Dim registry As ObjectDim alinandegerSet registry = CreateObject alinandeger = registry. RegRead degeroku = alinandegerEnd FunctionPrivate Sub Form_Load Text1 = degeroku("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\WaitToKillServiceTimeout")End Sub' degeroku , hadi kolay gelsin :), bu arada formuna text1 koy Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...