Gui'ye Müzik Eklemek

[Dj Demir]

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)

[blackman12]

SoundPlay(@TempDir & "\Jumper.mp3",0)

SoundSetWaveVolume(50)

yapıp dener misin?

[Dj Demir]

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 ..

[MostWanted]

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]

[Dj Demir]

çok teşekkür ederim hocam