Cmd Ile Masaüstüne Kısayol Attırabilirmiyiz ?

[ArminVB]

[b]Arkadaşlar CMD komutları ile Program Files'teki bir programın kısayolunu masaüstüne atmasını sağlayabilirmiyiz ? [/b]

[seyfi53]

saglarsin.

[ArminVB]

[quote name='seyfi53' date='28 January 2012 - 22:30 ' timestamp='1327782659' post='1147398']
saglarsin.
[/quote]
[b]Çok yardımcı oldun. CMD komutlarınıda verseydin keşke [/b]

[casira]

Cmd ile yapılıyordur belki ama istersen autoit bu iş için ideal.
[b]
#NoTrayIcon
FileCreateShortcut(@ProgramFilesDir & "\CCleaner\CCleaner.exe",@DesktopDir & "\CCleaner.lnk","","","Forever TNCTR")[/b]

[ArminVB]

[quote name='casira' date='28 January 2012 - 22:48 ' timestamp='1327783703' post='1147422']
Cmd ile yapılıyordur belki ama istersen autoit bu iş için ideal.
[b]
#NoTrayIcon
FileCreateShortcut(@ProgramFilesDir & "\CCleaner\CCleaner.exe",@DesktopDir & "\CCleaner.lnk","","","Forever TNCTR")[/b]
[/quote]
[center][b]cmd olursa daha iyi olur ama bir cevap alamazsam autoit'i denerim. [/b][/center]

[blackman12]

hayır cmd de bunun için bir komut yok ufak bir programcıkla yapıyordum ben eskiden.

[MOTUN]

programı kısayolu ile paketleyip kopyalatsa olmaz mı modum?
COPY "LEON.lnk" "%AllUsersProfile%\Desktop"

[ArminVB]

[quote name='blackman12' date='29 January 2012 - 00:00 ' timestamp='1327788046' post='1147451']
hayır cmd de bunun için bir komut yok ufak bir programcıkla yapıyordum ben eskiden.
[/quote]
[b]peki ben nerden bulucağım öyle bir programcık ? [/b]

[qwerty1986]

windows7 yüklü sistemlere powershell ile aşağıdaki kodla yapabilirsin

function CreatePSShortcut {
$wshell = New-Object -comObject WScript.Shell
$path1 = $wshell.SpecialFolders.Item('Desktop')


$path1| ForEach-Object {
$link = $wshell.CreateShortcut("$_\Hesap Makinesi.lnk")
$link.TargetPath = 'calc.exe'
$link.Description = 'Hesap Makinesi'
$link.WorkingDirectory = $home
$link.IconLocation = 'calc.exe'
$link.Save()
}
}

CreatePSShortcut