Au3 Compile

[blue_life]

@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]

[blue_life]

[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]