Search the Community

Ams de regeditten veri çekme Registry.SetValue(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System\\BIOS","BaseBoardManufacturer",REG_SZ); Registry.SetValue(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System\\BIOS","BaseBoardProduct",REG_SZ); Registry.SetValue(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System\\BIOS","SystemManufacturer",REG_SZ); Registry.SetValue(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System\\BIOS","SystemProductName",REG_SZ); Reg kayıtlarından veri çekme çek=Registry.SetValue(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System\\BIOS","SystemProductName",REG_SZ); Label.SetText("Label1",çek); gibi Ama olmuyor yardım edeçek biri varmı böylede denedim çek=Registry.SetValue(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System\\BIOS","SystemProductName",true); Label.SetText("Label1",çek); gibi Ama olmuyor çek=Registry.SetValue(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System\\BIOS","SystemProductName",false); Label.SetText("Label1",çek); gibi Ama olmuyor

Delphi ile regeditten program kaldırmayı yapmaya çalışıyorum. pc de kurulu olan programları listbox da listeliyorum seçili olanı silme işlemini yapamadım. yardımcı olurmusunuz. kodlar aşağıdaki gibi.

Dosyalara çift tıklayınca açılacak olan varsayılan programı ayarlamanıza yarar. Programınızın kendine ait bir proje dosyası falan olunca ilişkilendirmeye ihtiyaç duyarsınız. Veya portable olarak kullandığınız bir programın dosyalarını programla ilişkilendirebilirsiniz. Örneğin Portable Photoshop kullanıyorsanız bilgisayarınız psd dosyalarını tanımaz ve açamaz. Hazırladığım fonksiyon ile psd dosyasını photoshop ile ilişkilendirebiliyoruz.   Func _Dosya_iliski($Path,$Uzanti,$KisaAd,$Icon = "") RegWrite("HKEY_CLASSES_ROOT\" & $Uzanti, "", "REG_SZ", $KisaAd) RegWrite("HKEY_CLASSES_ROOT\" & $KisaAd & "\shell\open\command", "", "REG_SZ", '"' & $Path & '"' & " " & '"' & "%1" & '"') if FileExists($Icon) Then $Short = FileGetShortName($Icon) RegWrite("HKEY_CLASSES_ROOT\" & $KisaAd & "\DefaultIcon", "", "REG_SZ", $Short & ",0") Else RegWrite("HKEY_CLASSES_ROOT\" & $KisaAd & "\DefaultIcon", "", "REG_SZ", $Path & ",0") EndIf _Update_Explorer() EndFunc ;==>_Dosya_iliski Func _Update_Explorer($CLASS = "[CLASS:SHELLDLL_DefView]") Local $bOld = Opt("WinSearchChildren", True) Local $a = WinList($CLASS) For $I = 0 To UBound($a) - 1 DllCall("user32.dll", "long", "SendMessage", "hwnd", $a[$I][1], "int", 0x111, "int", 28931, "int", 0) Next Opt("WinSearchChildren", $bOld) EndFunc ;==>_Update_Explorer İçinde _Update_Explorer() fonksiyonu da mevcuttur. Bu fonksiyon uyguladığınız registry ayarlarını anında aktif eder, yani ilişkilendirmenin ardından reset atmanıza veya exploreri yeniden başlatmanıza gerek kalmaz. Örnek Kullanım Şekli ; _Dosya_iliski("C:\Program\Program.exe", ".uznt", "Uzanti Dosyasi", "C:\Program\Program.ico") İkon dosyanız yoksa sondaki argümanı boş bırakarak programın kendi ikonunu ayarlayabilirsiniz. Not : _Update_Explorer() fonksiyonu bana ait değildir. Fonksiyonu bana ulaştıran [member=SimpsoN_Bart] üyemize/arkadaşıma teşekkür ediyorum.