Autoit'le Winrar Katılımsız Yapma

[hasandgn34]

Yine Olmadı!

auto itte C:\\Users\\---Kullanıcı Adı---\ bölümünü nasıl düzenledin ki 

[A80]

Bu Şekilde

#RequireAdmin

If @OSArch = "X86" Then
	FileInstall("x86.exe", @TempDir & "\x86.exe", 1)
	FileSetAttrib(@TempDir & "\x86.exe", "+SH")
	ShellExecuteWait(@TempDir & "\x86.exe", "/S", "", "", @SW_HIDE)
	FileInstall("rarreg.key", @ProgramFilesDir & "\WinRAR\rarreg.key", 1)
	FileDelete(@TempDir & "\x86.exe")
Else
	FileInstall("x64.exe", @TempDir & "\x64.exe", 1)
	FileSetAttrib(@TempDir & "\x64.exe", "+SH")
	ShellExecuteWait(@TempDir & "\x64.exe", "/S", "", "", @SW_HIDE)
	FileInstall("rarreg.key", @HomeDrive & "\Program Files\WinRAR\rarreg.key", 1)
	FileDelete(@TempDir & "\x64.exe")
EndIf

FileInstall("Designcontest.exe", @TempDir & "\Designcontest.exe", 1)
ShellExecuteWait(@TempDir & "\Designcontest.exe", "/s", "", "", @SW_HIDE)
FileDelete(@TempDir & "\Designcontest.exe")
FileDelete(@TempDir & "\rarreg.key")

RegWrite('HKCU\Software\Classes\WinRAR\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RAR.ico')
RegWrite('HKCU\Software\Classes\WinRAR.REV\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\REV.ico')
RegWrite('HKCU\Software\Classes\WinRAR.ZIP\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RAR.ico')
RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ShellExtBMP','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RarSmall.bmp')
RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ShellExtIcon','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\Rar.ico')
RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ActivePath','REG_SZ','Designcontest')


TrayTip("WinRAR 5.10 Final TR", "Kurulumu Tamamlandı ! | By Titan", 30, 4)
Sleep(5000)

Sorun Reg Kısmında. Reg'le Tek Tek Galiba İconları Yazacağız

Edited July 15, 2014 by A80

[hasandgn34]

Bu Şekilde

#RequireAdmin

If @OSArch = "X86" Then
	FileInstall("x86.exe", @TempDir & "\x86.exe", 1)
	FileSetAttrib(@TempDir & "\x86.exe", "+SH")
	ShellExecuteWait(@TempDir & "\x86.exe", "/S", "", "", @SW_HIDE)
	FileInstall("rarreg.key", @ProgramFilesDir & "\WinRAR\rarreg.key", 1)
	FileDelete(@TempDir & "\x86.exe")
Else
	FileInstall("x64.exe", @TempDir & "\x64.exe", 1)
	FileSetAttrib(@TempDir & "\x64.exe", "+SH")
	ShellExecuteWait(@TempDir & "\x64.exe", "/S", "", "", @SW_HIDE)
	FileInstall("rarreg.key", @HomeDrive & "\Program Files\WinRAR\rarreg.key", 1)
	FileDelete(@TempDir & "\x64.exe")
EndIf

FileInstall("Designcontest.exe", @TempDir & "\Designcontest.exe", 1)
ShellExecuteWait(@TempDir & "\Designcontest.exe", "/s", "", "", @SW_HIDE)
FileDelete(@TempDir & "\Designcontest.exe")
FileDelete(@TempDir & "\rarreg.key")

RegWrite('HKCU\Software\Classes\WinRAR\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RAR.ico')
RegWrite('HKCU\Software\Classes\WinRAR.REV\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\REV.ico')
RegWrite('HKCU\Software\Classes\WinRAR.ZIP\DefaultIcon', '','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RAR.ico')
RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ShellExtBMP','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\RarSmall.bmp')
RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ShellExtIcon','REG_SZ','C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest\Rar.ico')
RegWrite('HKCU\Software\WinRAR\Interface\Themes', 'ActivePath','REG_SZ','Designcontest')


TrayTip("WinRAR 5.10 Final TR", "Kurulumu Tamamlandı ! | By Titan", 30, 4)
Sleep(5000)

Sorun Reg Kısmında. Reg'le Tek Tek Galiba İconları Yazacağız

Designcontest.exe bu exe.nin dosyaları C:\Users\Ali\AppData\Roaming\WinRAR\Themes\Designcontest bu klasöre çıkartıp çıkarmadığını kontrol ettin mi çünkü scriptte başka bir hata gözükmüyor ve bu katılımsız setup sadece senin pc de çalışır başka pc de çalışmaz çünkü user(adı Ali) bu tarz fazla registry yazacağın programlarda inno setup kullanmanı öneririm parametreside "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-" 'dir

 

 

birde sana söylemeyi unutmuşum scriptin sonuna

 

proccesclose("explorer.exe")

run("taskkill /f /im explorer.exe")

run("explorer.exe")

 

TrayTip("WinRAR 5.10 Final TR", "Kurulumu Tamamlandı ! | By Titan", 30, 4) Sleep(5000)

 

yaz  birde böyle dene çünkü bu şekilşde çalışıtor tema aktif oluıyor

[A80]

Kodları Düzenleyerek, Tempdir vs Komutunu Kullanarak Başka PC'lerde Çalışacak Şekilde Tekrardan Yazabilir Misiniz? Bugün Bunla Çok Uğrasdım Yazacak Kafa Kalmadı.Sanki Bana Temanın Tüm İçeriğini Reg'le Yazmıyoruz Giib Geliyor.Ewt Çıkarıyor. Tema İçeriği 

Edited July 15, 2014 by A80

[hasandgn34]

Kodları Düzenleyerek, Tempdir vs Komutunu Kullanarak Başka PC'lerde Çalışacak Şekilde Tekrardan Yazabilir Misiniz? Bugün Bunla Çok Uğrasdım Yazacak Kafa Kalmadı.Sanki Bana Temanın Tüm İçeriğini Reg'le Yazmıyoruz Giib Geliyor.Ewt Çıkarıyor. Tema İçeriği 

bu temanın linkini paylaş ben inno setup ile katılımsız yapçam sana anlartırım istersen birde

[A80]

Bnm Amacım AutoIt'le Yapmak. AutoIt'e Yeni Başladım. Onu Öğrenmek İçin Uğraşıyorum. Mümkünse AutoIt'le yapar Mısın?

Tema;

 http://www.datafilehost.com/d/3754584a

[hasandgn34]

Bnm Amacım AutoIt'le Yapmak. AutoIt'e Yeni Başladım. Onu Öğrenmek İçin Uğraşıyorum. Mümkünse AutoIt'le yapar Mısın?

Tema;

 http://www.datafilehost.com/d/3754584a

 

WinRAR v5.10.0 sürümünü hem hazırlanmış şekilde attım hemde script ve gerekli dosyaları içine koydum güle güle kullanın

 

https://mega.co.nz/#!RRRSEKBb!8dQ09HHA9gtdKijaJiRqA6whEwwTfoVHXTA96bHiC50

Edited July 16, 2014 by hasandgn34