Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem ze skrótem
koala



Typ: neutral
Postów: 9
Zarejestrowany: Nov 2003
Problem ze skrótem

Nie wiem jak utworzyć skrót do dowolnego pliku (lub katalogu) za pomocą API tak aby skrót ten znalazł się na pulpicie lub w innym katalogu (np. menu start) i jak ustawić parametry w skrócie dla elementu docelowego.

30-08-2004 13:16
Pokaż profil koala  Wyślij email do koala        1333014
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Użyj bezpłatnego instalatora InnoSetup
Tam możesz ustawić wiele rzeczy, no chyba, że koniecznie musi być API.

Ze skrótem jest tak, jak z każdym innym plikiem (chyba). Chyba sam się tym zainteresuję!


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

03-09-2004 19:32
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Funkcja API dla VB5:
Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Oraz dla VB6:
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long
(znacznie rozbudowana)


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

04-09-2004 12:06
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Kto szuka nie błądzi...

Najkrótszy i bardzo skuteczny sposób tworzenia plików *.lnk i BEZ API!!!

Kod z API zajmuje znacznie, znacznie więcej!


Sub ASDSA
    create_lnk "C:\windows\pulpit\skrot", _
        "C:\Program Files\MojProgram\MojProgram.exe", _
        "C:\Program Files\MojProgram", _
        0,"none", ""
End Sub

Sub create_lnk(lnk_name, target, work_dir, Window_style As Long, icon_file, icon_index)
Set WSHShell = CreateObject("WScript.Shell"
Set f = WSHShell.CreateShortcut(lnk_name & ".lnk"
f.TargetPath = target
f.WorkingDirectory = work_dir
f.WindowStyle = Window_style
If icon_file <> "none" Then f.IconLocation = WSHShell.ExpandEnvironmentStrings(icon_file & ", " & icon_index)
f.Save
End Sub


[Post edytowany dnia 04-09-2004 15:33 przez losmac]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

04-09-2004 14:19
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
koala



Typ: neutral
Postów: 9
Zarejestrowany: Nov 2003

Fajny przykład, bardzo mi się przydał. A jakie jeszecze ciekawe funkcje ma WScript

13-09-2004 11:00
Pokaż profil koala  Wyślij email do koala        1333014
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1