Dj Demir Posted June 12, 2010 Share Posted June 12, 2010 tekrar selam arkadaşlar çalışmama arka planda çalaçak bir müzik ekledim müzik sorunsuz ama sorun şı ki , Gui'deki tüm fonksiyonlar deaktive oluyor müzik çaldığı için butonlara tıklanmıyor hatta gui bile kapanmıyor. Acaba nedendir , bilen biri yardımcı olursa minnettar kalırım. şöyle bir kod kullanıyorum.. SoundPlay(@TempDir & "\Jumper.mp3",1) SoundSetWaveVolume(50) Link to comment Share on other sites More sharing options...
blackman12 Posted June 12, 2010 Share Posted June 12, 2010 SoundPlay(@TempDir & "\Jumper.mp3",0) SoundSetWaveVolume(50) yapıp dener misin? Link to comment Share on other sites More sharing options...
Dj Demir Posted June 13, 2010 Author Share Posted June 13, 2010 teşekkür ederim blackman hiç ondan olacağını tahmin etmemiştim valla yeri değil ama fazla kirlilik yapmamak için bir şey daha sorabilir miyim . elimde "gizli dosyaları gösterme" reg'i yok al yapinca da olmuyor . istediğim regi disariya almakta zorlanıyorum var mı link forumda arama yaptım istediğimi bulamadım sende varsa şu an bana "gizli dosyaları gösterme" regi lazım da Teşekkürler , Selametle .. Link to comment Share on other sites More sharing options...
MostWanted Posted June 13, 2010 Share Posted June 13, 2010 If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden") = "1" Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "0") _Update_Explorer() Else RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "1") _Update_Explorer() EndIf[/CODE] Kendime bir program yapmıştım bununla ilgili küçük bir şey.Buyur onlar bu programdan kalanlar.._update_Explorer fonksiyonu da sayfanın yenilenerek gizli dosyaların gösterilmesi için gerekli.Buyur onun koduda aşağıda.. [CODE]Func _Update_Explorer() Local $WinExpListArr, $GetWinState, $Hwnd $WinExpListArr = _ExplWinGetList() If IsArray($WinExpListArr) Then For $iWin = 1 To $WinExpListArr[0] $GetWinState = WinGetState($WinExpListArr[$iWin]) $Hwnd = WinGetHandle($WinExpListArr[$iWin]) DllCall("user32.dll", "long", "SendMessage", "hwnd", $Hwnd, "int", 0x111, "int", 28931, "int", 0) Next EndIf Opt("WinTitleMatchMode", 4) $Hwnd = WinGetHandle("classname=Progman") DllCall("user32.dll", "long", "SendMessage", "hwnd", $Hwnd, "int", 0x111, "int", 28931, "int", 0) EndFunc;==>_Update_Explorer Func _ExplWinGetList() Local $WinList, $iW Opt("WinTitleMatchMode", 4) $WinList = WinList("classname=CabinetWClass") If IsArray($WinList) Then Local $WinListArr[$WinList[0][0] + 1] For $iW = 1 To $WinList[0][0] $WinListArr[$iW] = $WinList[$iW][0] Next $WinListArr[0] = $WinList[0][0] Return $WinListArr Else Return "" EndIf EndFunc;==>_ExplWinGetList[/CODE] Link to comment Share on other sites More sharing options...
Dj Demir Posted June 14, 2010 Author Share Posted June 14, 2010 çok teşekkür ederim hocam Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.