Desktop - Collegamento Desktop (2)

Pertanto, per piazzare il collegamento
sul desktop, inserisci questo codice:
Dim iLong As Long
iLong = fCreateShellLink("..\..\Desktop", "Collegamento a _
Program", "C:\Path\Program.exe","")
Attivare lo Screen Saver...

Dichiarazioni:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As
Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_SCREENSAVE = &HF140
Utilizzo:
Dim Result As Long
Result = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)