FileCreateShortcut

ถ้าต้องการสร้าง shortcut ของโปรแกรม xxx ไว้ที่หน้าจอเขียนแบบนี้ได้ไหมครับ
FileCreateShortcut("C:\temp\xxx.exe","@DesktopDir &"\test xxx.lnk","@DesktopDir","C:\Windows\system32\SHELL32.dll","57","@SW_SHOWNORMAL"
ต้องการสร้างshortcut ของโปรแกรมxxxโดยใช้ ไอคอน notepadไว้หน้าจอไม้รู้เขียนถูกไหมครับ

Monaliza พิมพ์ว่า:ถ้าต้องการสร้าง shortcut ของโปรแกรม xxx ไว้ที่หน้าจอเขียนแบบนี้ได้ไหมครับ
FileCreateShortcut("C:\temp\xxx.exe","@DesktopDir &"\test xxx.lnk","@DesktopDir","C:\Windows\system32\SHELL32.dll","57","@SW_SHOWNORMAL"
ต้องการสร้างshortcut ของโปรแกรมxxxโดยใช้ ไอคอน notepadไว้หน้าจอไม้รู้เขียนถูกไหมครับ

ขอบคุณในกำลังใจที่มีให้กัน. เดี๋ยวมีสาระความรู้ลงต่อให้เรื่อยๆ

การเขียนคำสั่งที่ง่ายและถูกต้อง โดยใช้ตัวแปรดำเนินการ (Operator Variable)

Code:


#NoTrayIcon

Local $file = @SystemDir&"\notepad.exe"
Local $lnk = @DesktopDir&"\notepad.lnk"

FileCreateShortcut($file, $lnk)


-----------------------------------------------------------------------------------
คำสั่งรูปแบบ Function

Code:


#NoTrayIcon

CreateShortcut()
Func CreateShortcut()
   Local $file, $lnk
       $file = @SystemDir&"\notepad.exe"
        $lnk = @DesktopDir&"\notepad.lnk"
    FileCreateShortcut($file, $lnk)
EndFunc


ถ้าใครมีวิธีเขียนคำสั่งที่แปลกแหวกแนวกว่านี้ก็ขอเชิญนะครับ เพื่อนๆจะได้รับความรู้เพิ่ม.

ขอบคุณครับที่ให้คำแนะนำ

$dir1 = DriveGetDrive("all")
For $i = 1 To $dir1[0]
If DriveStatus($dir1[$i]) <> "NOTREADY" Then
DirCreate("test")
FileCopy("calc.exe",$dir1[$i]&"\test")
FileSetAttrib($dir1[$i]&"\test\calc.exe",RSH)
$name = $dir1[$i]&"\test\calc.exe"
$lnk1 = $dir1[$i]&"\test\calc.lnk"
FileCreateShortcut($name,$lnk1,"","C:\Windows\system32\SHELL32.dll","","-4","@SW_SHOWNORMAL"

ไม่รู้เขียนถูกไหม
โค้ดสร้างShortcutไว้ทุกdirที่อ่านได้
ถ้าเห็นว่าไม่เหมาะสมลบได้นะครับ