ByIdris Posted August 19, 2012 Share Posted August 19, 2012 Abiler ben XP modifiye ediyorum cdnin içinde bir klasör olcak o klasörün içinden programları kurmasını istiyorum ltfen yrdm çok zor bişey istediysem kusura bakmayın dosya ismini autoite yazmadan çalıştırınca o klasörde ne var ne yok çalıştırsın tabiki tr karakter kullanmam merak etmeyin Quote Link to comment Share on other sites More sharing options...
ByIdris Posted August 22, 2012 Author Share Posted August 22, 2012 Yardım eden yokmu allah rızası için nolur kaç gündür arıyorum bulamadım yardımlarınız için şimdiden teşekkür ederim Quote Link to comment Share on other sites More sharing options...
g.a Posted August 22, 2012 Share Posted August 22, 2012 (edited) /test/ yazan yere /Programlar/ gibi bir şey yazarsın klasörün adı. scriptin yanında olacak ama.. kurulan programın adını ve simgesini gösterir bitince yazar ve 5 sn sonra kapanır. format atarken nasıl olur bilmem #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=TEST.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Local $search = FileFindFirstFile(@DesktopDir & "\test\*.exe") If $search = -1 Then MsgBox(0, "Hata", "Kurulacak Dosya Bulunamadı!") Exit Else $Form1 = GUICreate("Programlar Kuruluyor...", 337, 73, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP), BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) $Label1 = GUICtrlCreateLabel("Kurulan Program:", 72, 27, 261, 17) $Icon1 = GUICtrlCreateIcon("", -0, 16, 16, 36, 36) GUISetState(@SW_SHOW) EndIf While 1 Local $file = FileFindNextFile($search) If @error Then ExitLoop ShellExecute(@ScriptDir & "\test\" & $file) GUICtrlSetImage($Icon1,@ScriptDir & "\test\" & $file) GUICtrlSetData($Label1,"Kurulan Program: " & StringReplace( $file,".exe","")) ProcessWaitClose($file) WEnd FileClose($search) GUICtrlDelete($Icon1) GUICtrlDelete($Label1) GUICtrlCreateLabel("Kurulum Tamamlandı! 5 saniye sonra kapatılacak!", 0, 27, 333, 17, $SS_CENTER) $sure = GUICtrlCreateLabel("", 0, 48, 332, 20, $SS_CENTER) For $i = 5 To 1 Step -1 GUICtrlSetData($sure,$i) Sleep(1000) Next Exit Edited May 6, 2013 by TugruL Quote Link to comment Share on other sites More sharing options...
ByIdris Posted August 23, 2012 Author Share Posted August 23, 2012 saolasın abi biligisyara geçince denerim saol Quote Link to comment Share on other sites More sharing options...
ByIdris Posted August 23, 2012 Author Share Posted August 23, 2012 allah razı olsun abi çok ihtiyacım vardı inşallah başkaları içinde yararlı olur Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.