digitall Posted August 10, 2013 Share Posted August 10, 2013 Arkadaşlar elimde bir program var sorunsuz kurulum yapıyor katılımsız ancak masa üstüne kısayol atmıyor kurulumdan sonra yani bat ya da cmd dosyası ile kısayolunu masa üstüne attırmak istiyorum kurulumdan sonra özellikle bat olursa çok makbule geçecek aradım ancak bulamadım affola saygılarımla... Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted August 10, 2013 Share Posted August 10, 2013 VBScript ile yapılabilir. Örnek ; set WshShell = WScript.CreateObject("WScript.Shell" ) strDesktop = WshShell.SpecialFolders("AllUsersDesktop" ) set oShellLink = WshShell.CreateShortcut(strDesktop & "\WinRaR Kısayol.lnk" ) oShellLink.TargetPath = "C:\Program Files\WinRAR\WinRaR.exe" oShellLink.WindowStyle = 1 oShellLink.Description = "Divane" oShellLink.WorkingDirectory = "C:\Program Files\WinRAR" oShellLink.Save Uzantısını .vbs olarak kaydedeceksin. Quote Link to comment Share on other sites More sharing options...
digitall Posted August 10, 2013 Author Share Posted August 10, 2013 Peki üstat .batla yapmamın bir yolu var mı ? Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted August 10, 2013 Share Posted August 10, 2013 Araştırdım da batch ile ilgili pek birşey göremedim. Sen bunu vbs olarak kaydettikten sonra bat ile de çalıştırabilirsin. start kisayol.vbs şeklinde. Quote Link to comment Share on other sites More sharing options...
digitall Posted August 10, 2013 Author Share Posted August 10, 2013 Anladım ustam winrarla ekliyorum aslında sorunsuz ancak 64 bitte sıkıntı yaratıyor o yüzden böyle bir alternatif aradım. Quote Link to comment Share on other sites More sharing options...
digitall Posted August 11, 2013 Author Share Posted August 11, 2013 Arkadaşlar bat dosyası yardımıyla masa üstüne kısayol attırabilir miyim? Yoksa Divane üstadın söylemiş olduğu şekilde yapacam. Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted August 11, 2013 Share Posted August 11, 2013 @Echo off rem Window Style REM 1 = Normal, 3 Maximized, 7 = Minimized rem Choose "Desktop" or "AllUsersDesktop" set Location="Desktop" set DisplayName="My Shortcut" set filename="c:\somedir\myfile.exe" REM Set icon to an icon from an exe or "something.ico" set icon="notepad.exe, 0" set WorkingDir="C:\somedir" set Arguments="xxx" REM Make temporary VBS file to create shortcut REM Then execute and delete it (echo Dim DisplayName,Location,Path,shell,link echo Set shell = CreateObject^("WScript.shell"^) echo path = shell.SpecialFolders^(%Location%^) echo Set link = shell.CreateShortcut^(path ^& "\" ^& %DisplayName% ^& ".lnk"^) echo link.Description = %DisplayName% echo link.TargetPath = %filename% echo link.Arguments = %arguments% echo link.WindowStyle = 7 echo link.IconLocation = %icon% echo link.WorkingDirectory = %WorkingDir% echo link.Save )> "%temp%\makelink.vbs" cscript //nologo "%temp%\makelink.vbs" del "%temp%\makelink.vbs" 2>NUL Quote Link to comment Share on other sites More sharing options...
digitall Posted August 11, 2013 Author Share Posted August 11, 2013 (edited) Eyvallah ustam teşekkür ederim. @Echo off set Location="Desktop" set DisplayName="Kısayol Adı" set Filename="%ProgramFiles%\Program Klasörü\Program Adı.exe" set Icon="%ProgramFiles%\Program Klasörü\Program Adı.exe" set WorkingDir="%ProgramFiles%\Program Klasörü" REM Make temporary VBS file to create shortcut REM Then execute and delete it (echo Dim DisplayName,Location,Path,shell,link echo Set shell = CreateObject^("WScript.shell"^) echo path = shell.SpecialFolders^(%Location%^) echo Set link = shell.CreateShortcut^(path ^& "\" ^& %DisplayName% ^& ".lnk"^) echo link.TargetPath = %FileName% echo link.IconLocation = %Icon% echo link.WorkingDirectory = %WorkingDir% echo link.Save )> "%temp%\makelink.vbs" cscript //nologo "%temp%\makelink.vbs" del "%temp%\makelink.vbs" 2>NUL Edited August 11, 2013 by digitall Quote Link to comment Share on other sites More sharing options...
digitall Posted August 11, 2013 Author Share Posted August 11, 2013 Arkadaşlar şimdi de şöyle bir sorunum ortaya çıktı neroda /w ile beraber kısayol ekleyemiyorum yani şu şekilde: Quote Link to comment Share on other sites More sharing options...
digitall Posted August 11, 2013 Author Share Posted August 11, 2013 Arkadaşlar sabahtan beri uğraşıyorum ama şu yolu kısayol olarak atamadım gitti. "C:\Program Files\Nero\Nero Burning ROM\nero.exe" /w Quote Link to comment Share on other sites More sharing options...
MAKINCI Posted August 11, 2013 Share Posted August 11, 2013 Katılımsızları hangi programla hazırlıyorsun kardeşim... Quote Link to comment Share on other sites More sharing options...
digitall Posted August 12, 2013 Author Share Posted August 12, 2013 Değişiyor bu ama nero 8 basit bir program olduğu için winrarla hazırlamıştım. Quote Link to comment Share on other sites More sharing options...
reyiz Posted August 12, 2013 Share Posted August 12, 2013 nircmd ile yapabilirsiniz. nircmd komut isteminden daha fazla işlem yapabilmenizi sağlayan bir programdır. nircmd programını komut dosyası ile aynı klasöre atacaksınız ve aşağıdaki komutu kullanacaksınız. nircmd.exe shortcut "~$folder.programfiles$\Nero\Nero Burning ROM\nero.exe" "~$folder.desktop$\Nero Express" "/w" Quote Link to comment Share on other sites More sharing options...
digitall Posted August 12, 2013 Author Share Posted August 12, 2013 Bunu yapmamın başka bir yolu yok mu ustam ? Quote Link to comment Share on other sites More sharing options...
digitall Posted August 12, 2013 Author Share Posted August 12, 2013 Ustam bu komutla masa üstünde nero express diye klasör oluşturdu ve içinde w adında neronun simgesini oluşturdu tıkladığımda nero burning açıldı. Quote Link to comment Share on other sites More sharing options...
reyiz Posted August 14, 2013 Share Posted August 14, 2013 nircmd.exe shortcut "~$folder.programfiles$\Nero\Nero Burning ROM\nero.exe" "~$folder.desktop$\" "Nero Express" "/w" Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted August 14, 2013 Share Posted August 14, 2013 ;Dosya Adı|Kısayol konumu|Çalışma dizini|Parametre|Açıklama|Simge|Simge numarası|Başlagıç sitili|Kısayol tuşu SK_SHORTCUT("nero.exe", @DesktopDir & "\Nero Express", @ProgramFilesDir & "\Nero\Nero Burning ROM", "/w", "Hazırlayan : SimpsoN_Bart") Func SK_SHORTCUT($DOSYA_ADI, $LNK, $CALISMADIZINI = "", $PARAM = "", $ACIKLAMA = "", $SIMGE = "", $NSIMGE = 0, $DURUM = "", $KISAYOLT = "") Local $KLASOR If $NSIMGE = "" Then $NSIMGE = 0 If StringRight($LNK, 4) <> ".lnk" Then $LNK &= ".lnk" If Not StringInStr($DOSYA_ADI, ":\", 0) Then $DOSYA_ADI = @ScriptDir & "\" & $DOSYA_ADI If Not FileExists($DOSYA_ADI) Then Return -1 $KLASOR = StringSplit($LNK, "\") $KLASOR = StringLeft($LNK, StringInStr($LNK, $KLASOR[$KLASOR[0]]) - 2) If Not FileExists($KLASOR) Then DirCreate($KLASOR) FileCreateShortcut($DOSYA_ADI, $LNK, $CALISMADIZINI, $PARAM, $ACIKLAMA, $SIMGE, $KISAYOLT, $NSIMGE, $DURUM) EndFunc ;==>SK_SHORTCUT Bunun yerine ufak bir program daha var şöyle biraz incelersin. Shortcut.exe Parametresi Shortcut.exe /F:filename /A:C|E|Q [/T:target] [/P:parameters] [/W:workingdir] [/R:runstyle] [/I:icon,index] [/H:hotkey] [/D:description] /F:filename : Specifies the .LNK shortcut file. /A:action : Defines the action to take (C=Create, E=Edit or Q=Query). /T:target : Defines the target path and file name the shortcut points to. /P:parameters : Defines the command-line parameters to pass to the target. /W:working dir : Defines the working directory the target starts with. /R:run style : Defines the window state (1=Normal, 3=Max, 7=Min). /I:icon,index : Defines the icon and optional index (file.exe or file.exe,0). /H:hotkey : Defines the hotkey, a numeric value of the keyboard shortcut. /D:description : Defines the description (or comment) for the shortcut. Notes: - Any argument that contains spaces must be enclosed in "double quotes". - If Query is specified (/A:Q), all arguments except /F: are ignored. - To find the numeric hotkey value, use Explorer to set a hotkey and then /A:Q - To prevent an environment variable from being expanded until the shortcut is launched, use the ^ carat escape character like this: ^%WINDIR^% Examples: /f:"%ALLUSERSPROFILE%\Start Menu\Programs\My App.lnk" /a:q /f:"%USERPROFILE%\Desktop\Notepad.lnk" /a:c /t:^%WINDIR^%\Notepad.exe /h:846 /f:"%USERPROFILE%\Desktop\Notepad.lnk" /a:e /p:C:\Setup.log /r:3 An argument of /? or -? displays this syntax and returns 1. A successful completion will return 0. Quote Link to comment Share on other sites More sharing options...
digitall Posted August 16, 2013 Author Share Posted August 16, 2013 nircmd.exe shortcut "~$folder.programfiles$\Nero\Nero Burning ROM\nero.exe" "~$folder.desktop$\" "Nero Express" "/w" Ustam 64 bitte çalışmıyor. Yol şu şekilde nasıl yapacağımı bilemedim. C:\Program Files (x86)\Nero\Nero Burning ROM Quote Link to comment Share on other sites More sharing options...
MAKINCI Posted August 16, 2013 Share Posted August 16, 2013 Autoitle hazırladım, neroyu kendi bildiğin gibi kurdur enson bu exeyi çalıştır kısayol atar... Kod İçeriği; #RequireAdmin #region #AutoIt3Wrapper_Icon=NeroEx.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Description=Nero Kısayol #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_Field=ProductName|Nero Express #AutoIt3Wrapper_Res_Field=Write Time|%date% %time% #AutoIt3Wrapper_Res_Language=1055 #AutoIt3Wrapper_Run_Tidy=y #endregion If @OSArch = "X86" Then FileCreateShortcut(@ProgramFilesDir & "\Nero\Nero Burning ROM\nero.exe", @DesktopDir & "\Nero Express.lnk", @ProgramFilesDir, "", "Nero Burning ROM", @ProgramFilesDir & "\Nero\Nero Burning ROM\nero.exe", @SW_MAXIMIZE) Else FileCreateShortcut(@HomeDrive & "\Program Files (x86)\Nero\Nero Burning ROM\nero.exe", @DesktopDir & "\Nero Express.lnk", @HomeDrive, "", "Nero Burning ROM", @HomeDrive & "\Program Files (x86)\Nero\Nero Burning ROM\nero.exe", @SW_MAXIMIZE) EndIf Compile Edilmiş Hali; http://www.mediafire.com/download/baxctxmwy5v6pa7/Nero_Express.exe Quote Link to comment Share on other sites More sharing options...
digitall Posted August 16, 2013 Author Share Posted August 16, 2013 Eline sağlık ustam ama /w unutmuşsun bunu eklemeyi bu yüzden nero burning rom açılıyor. Quote Link to comment Share on other sites More sharing options...
MAKINCI Posted August 16, 2013 Share Posted August 16, 2013 Eline sağlık ustam ama /w unutmuşsun bunu eklemeyi bu yüzden nero burning rom açılıyor. Biraz daha ayrıntılı anlatırsan kardeşim yeniden hazırlarım, ne işe yarıyor bu /w harfi... Quote Link to comment Share on other sites More sharing options...
digitall Posted August 16, 2013 Author Share Posted August 16, 2013 Ustam yapyığım katılımsız nerosu sadece nero burning romdan oluşuyor bende masa üstüne attığım nero kısayolunun sonun /w koyuyorum ve nero expressi direkt olarak açması sağlıyorum birde resim atayım. Ama kardeşim daha çok işimi yarayacak olan reyiz kardeşin paylaşmış olduğu şey bu konuda yardımcı olursan daha çok sevinirim. Esas sorun şu ki: nircmd.exe shortcut "~$folder.programfiles$\Nero\Nero Burning ROM\nero.exe" "~$folder.desktop$\" "Nero Express" "/w" Ustam 64 bitte çalışmıyor. Yol şu şekilde nasıl yapacağımı bilemedim. C:\Program Files (x86)\Nero\Nero Burning ROM Quote Link to comment Share on other sites More sharing options...
MAKINCI Posted August 16, 2013 Share Posted August 16, 2013 Hocam hazırlıyorum istediğin gibi lakin şöyle daha garanti olur, program filesteki Nero\Nero Burning ROM\ klaörünün içinde nero expres exesi varmı eğer varsa ben masaüstüne ikisininde kısayolunu attırayım yoksa senin dediğin gibi yapıcaz... Quote Link to comment Share on other sites More sharing options...
digitall Posted August 16, 2013 Author Share Posted August 16, 2013 (edited) Yok kardeşim exesi. Edited August 16, 2013 by digitall Quote Link to comment Share on other sites More sharing options...
digitall Posted August 16, 2013 Author Share Posted August 16, 2013 nircmd.exe shortcut "~$folder.programfiles$\Nero\Nero Burning ROM\nero.exe" "~$folder.desktop$\" "Nero Express" "/w" Ustam 64 bitte çalışmıyor. Yol şu şekilde nasıl yapacağımı bilemedim. C:\Program Files (x86)\Nero\Nero Burning ROM Esasen bunu 64 bitte yapabilirsem çok iyi olacak 32 bitte yukarıdaki sorunsuz. 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.