Kodlarda Hata Var

[ronaldinho424]

Flash()
Func Flash()
Local $form1 = GUICreate('Flash Paketi 1.1 Kurulumu', 432, 270, -1, -1, BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX))
FileInstall("arkaplan.jpg", @AppDataDir & "\arkaplan.jpg")
FileSetAttrib(@AppDataDir & "\arkaplan.jpg", "+SH")
Local $resim = GUICtrlCreatePic(@AppDataDir & "\arkaplan.jpg", 0, 0, 432, 270)
GUICtrlSetState(-1, $gui_disable)
Local $pro1 = GUICtrlCreateCombo("", 292, 35, 90, 20, 0x0003)
GUICtrlSetData(-1, "Kur|Kurma", "Kur")
GUICtrlSetFont(-1, Default, 800)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "")
Local $pro2 = GUICtrlCreateCombo("", 292, 70, 90, 20, 0x0003)
GUICtrlSetData(-1, "Kur|Kurma", "Kur")
GUICtrlSetFont(-1, Default, 800)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "")
Local $pro3 = GUICtrlCreateCombo("", 292, 105, 90, 20, 0x0003)
GUICtrlSetData(-1, "Kur|Kurma", "Kur")
GUICtrlSetFont(-1, Default, 800)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "")
Local $pro4 = GUICtrlCreateCombo("", 292, 140, 90, 20, 0x0003)
GUICtrlSetData(-1, "Kur|Kurma", "Kur")
GUICtrlSetFont(-1, Default, 800)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "")
Local $pro5 = GUICtrlCreateCombo("", 292, 175, 90, 20, 0x0003)
GUICtrlSetData(-1, "Kur|Kurma", "Kur")
GUICtrlSetFont(-1, Default, 800)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "")
Local $kur = GUICtrlCreateButton("Kurulumu Başlat",166,230,100,30)
GUICtrlSetFont(-1, Default, 800)
If StringInStr("WIN_81|WIN_8|WIN_7|WIN_VISTA",@OSVersion) Then
GUICtrlSetCursor(-1, 0)
DllCall("user32.dll", "UINT", "SendMessage", "handle", GUICtrlGetHandle(-1), "UINT", $bcm_setshield, "ptr*", 0, "BOOL", False)
EndIf
Local $Progress = GUICtrlCreateProgress(10,210, 412, 10,$PBS_MARQUEE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@AppDataDir & "\arkaplan.jpg")
Exit
Case $kur
_ProgressMarquee_Start($Progress)
If GUICtrlRead($pro1) = "Kur" Then
RunWait("program1.EXE")
EndIf
If GUICtrlRead($pro2) = "Kur" Then
RunWait("program2.EXE")
EndIf
If GUICtrlRead($pro3) = "Kur" Then
RunWait("program3.EXE")
EndIf
If GUICtrlRead($pro4) = "Kur" Then
RunWait("program4.EXE")
EndIf
If GUICtrlRead($pro5) = "Kur" Then
RunWait("program5.EXE")
EndIf
GUIDelete($form1)
Case -3
Exit
EndSwitch
WEnd
EndFunc ;==>Flash
Func _ProgressMarquee_Start($iControlID)
Return GUICtrlSendMsg($iControlID, $PBM_SETMARQUEE, True, 20) = True
EndFunc

 

Kodlarda sıkıntı var kurulum başlat seçeneği yanlız 1 defa kullanmak istiyorum programların tümü kurma olarak seçdiğinde uyarı mesajı vermesi yardımcı olabilirmisiniz....

Edited April 12, 2014 by ronaldinho424

[ronaldinho424]

  Şu şekilde Yaptım oldu...

  If GUICtrlRead($pro5) = "Kurma" And GUICtrlRead($pro4) = "Kurma" And  GUICtrlRead($pro3) = "Kurma" And  GUICtrlRead($pro2) = "Kurma" And GUICtrlRead($pro1) = "Kurma" Then

  End If

[Ayaz80]

Kodların Düzenlenmiş Halini  Tekrar Paylaşır Mısın ?

[ronaldinho424]

tam düzenleyemedim ondan öyle...

[Ayaz80]

Sorunsuz Olarak Çalışan Halini Paylaş O Zaman :)