Search the Community
Showing results for tags 'ekrana bilgi yazdırma'.
-
Merhaba herkese bir sorunla boğuşuyorum baya uzun zamandır hatta bunu bittirirsem halledersem son çalışmamda kullanmakta istiyorum olay şu; Bir Fonksiyon hazırladım ve bu Fonksiyondaki Katılımsız veya manuel seçimli olan ".exe" dosyası (180 MB) Temp'e çıkarken yani dosyalar kuruluma hazırlanırken bayaaa uzun süre geçiyor... Önce bunu hızlandırabilirmiyim bu birinci sorum... ikincisi ve asıl benim için önemli soruysa, Dosyalar çıkarken yani kuruluma hazırlanırken ekrana " Lütfen bekleyin, Kurulum menüsü Hazırlanıyor " gibi bir ileti ve altında bir ilerleme çubuğuda yazıyla birlikte görünebilir mi? asıl konu yazıyı ekrana yazdırdık ve ilerleme çubuğunuda gösterdik diyelim... Çıkarma işi arka planda gerçekleşirken yazı ve ilerleme çubuğu görünsün çıkarma işi bitip, kuruluma gececeğimiz zaman Yazı ekrandan kalksın gitsin :) birdaha gelmesin ben artık kurulum aşamasına geçeyim istiyorum bunu nasıl yapabilirim ? Diye sormuştum, belki kodu kullanmak isteyen olur diye yeniden düzenlenmiş halini bu Örnek kodda veriyorum: #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> Global $EXE_NAME = "XP_KURULUM_MENUSU_2014.exe";buraya kurulumun yapılacağı dosya ismini yazın..! Global $mesale0077 = @CRLF & "EASMurat SEC KUR MENUSU" & @CRLF & "Bilgisayarına Yükleniyor..." & @CRLF & "Merak etmeyin işlem sonunda" & @CRLF & "Menü Otomatikman silinecektir" & @CRLF & "Lütfen Bekleyiniz" ;Çıkarılan Exe dosyasının Adını Gostermemek için ;bilgi olarak "EASMurat SEC KUR MENUSU" yazdım burayı istediğinize göre değiştirebilirsiniz... $Form1 = GUICreate("www.EASMurat.com", 351, 141, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) GUISetBkColor(0xb2b2b2) ; Kurulum penceresinin Arka rengi (Gri)... $EnterPassLabel = GUICtrlCreateLabel($mesale0077, 8, 0, 360, 110, $SS_CENTER) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Progress1 = GUICtrlCreateProgress(8, 110, 333, 25) GUICtrlSetBkColor(-1, 0xe8e6d9) GUICtrlSetColor(-1, 0xff7f00) ; (Turuncu) ilerleme Çubuğu rengi... DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "") _GuiRoundCorners(GUICtrlGetHandle($Progress1), 0, 0, 5, 5) GUISetState(@SW_SHOW) Global $EXE_FILE = $EXE_NAME ;@TempDir&"\"&$EXE_NAME FileInstall("XP_KURULUM_MENUSU_2014.exe", $EXE_FILE);Asıl kurulacak Programın ismini buraya yaz..! Global $PR_PID = Run($EXE_FILE) Global $START_TIME[2] = [TimerInit(), 0] Global $SET_PROGRES While ProcessExists($PR_PID) If WinActive("EASMurat SEC KUR MENUSU") Then ; Kurulan Programın başlıktaki adını görünce Yüklenme animasyonu kaybolsun... ProcessClose($PR_PID) ExitLoop EndIf If Round(TimerDiff($START_TIME[0])) > $START_TIME[1] Then $START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000) $SET_PROGRES += 1 GUICtrlSetData($Progress1, $SET_PROGRES) If $SET_PROGRES >= 100 Then $SET_PROGRES = 1 EndIf Sleep(15) WEnd GUICtrlSetData($Progress1, 25) Sleep(20) GUICtrlSetData($Progress1, 50) Sleep(20) GUICtrlSetData($Progress1, 75) Sleep(20) GUICtrlSetData($Progress1, 100) Sleep(1500) GUICtrlSetData($EnterPassLabel, "" & @CRLF & @CRLF & "EASMurat SEC KUR MENUSU" & @CRLF & "Simdi Herşey Tamam, Seçmeye Başlayın..!") FileDelete($EXE_FILE) Sleep(500) Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc ;==>_GuiRoundCorners Verdiği örnek kod ve Fikir için Mesale0077 'ye Teşekkürler..!
- 6 replies
-
- autoit
- ekrana bilgi yazdırma
-
(and 2 more)
Tagged with: