blue_life Posted March 7, 2012 Share Posted March 7, 2012 @radyofon Tabiki gerekli deyil. Temp klasöründe programlar tarafından oluşturulan, geçici dosyaların başında ilgili karakter olduğundan bu standarta uyulmak istenmiş! Lakin bazı sorunlar yaşamamak için, dosyanın ismini maksimum 8 karakter yapın... Zaten ilgili fonksiyonda uzunluk 7 + ¨ = 8 karakter olarak belirlenmiş. Fonksiyonda bu değişkenlere tanımlama yapıldığı için, sizin fonkisyonu kullanırken tekrar bir tanımlama yapmanıza gerek yok. Ilgili fonksiyonu direk kullanabilirsiniz ki zaten verilen örnekte direkt kullanılmıştır... [b]Global $Program = _TempFile()[/b] Quote Link to comment Share on other sites More sharing options...
blue_life Posted March 11, 2012 Share Posted March 11, 2012 [quote name='MAKINCI' date='11 March 2012 - 04:19'] Hocam kusura bakmayın ne yaptıysam x86-x64 tek setupta olmadı,olduysada çalışmadı projeyi mediafree yükledim, nerde hata var bi bakarsanız çok makbule geçer Aeo... http://www.mediafire.com/?x2calltfblkaegh[/quote] [color="#0000FF"][u][b]http://bluelife.zxq.net/Files/Autoit/Garbage/Silent_NurVecizee.zip[/b][/u][/color] Içerikteki kodlar; [codebox]#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Icon.ico #AutoIt3Wrapper_Outfile=NurVecizee.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Res_Compatibility=Vista,Windows7 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Opt("TrayMenuMode", 1) Global $Program = _TempFile() Global $Parametre = "/qn" _Process_Close("Nur Vecize.exe") ;Çalışıyorsa programı kapatalım TrayTip("AllFile Renamer 1.50 yüklenirken lütfen bekleyiniz...", ".::Murat AK::..", 30, 4) If @OSArch = "X86" Then FileInstall("X86_NurVecizee.msi", $Program, 1) MsgBox(64,"Bu satırları silersin!","Sistem 32 bit!") ; Bu satırları silersin... Else ;X64 MsgBox(64,"Bu satırları silersin!","Sistem 64 bit!") ; Bu satırları silersin... FileInstall("X64_NurVecizee.msi", $Program, 1) EndIf ShellExecuteWait($Program, $Parametre) Sleep(1000) FileDelete($Program) TrayTip("AllFile Renamer 1.50 Başarıyla Yüklendi.", ".::Murat AK::..", 30, 4) Sleep(3000) Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".msi", $s_FilePrefix = "~", $i_RandomLength = 7) Local $s_TempName If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return ($s_TempName) EndFunc ;==>_TempFile Func _Process_Close($PNAME) While ProcessExists($PNAME) <> 0 ProcessClose($PNAME) Sleep(50) WEnd EndFunc[/codebox] 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.