Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Skrót
Sen




Typ: neutral
Postów: 20
Zarejestrowany: Jan 2004
Skrót

Mam problem ze stworzeniem skrótu.
Próbowałem za pomocą API -fCreateShellLink, ale nic mi nie wychodzi.
POMOCY!!!

22-01-2004 15:20
Pokaż profil Sen  Wyślij email do Sen   
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

plik shelllnk.tlb z cd'ka visuala dodaj do projektu a potem
  Dim x As IShellLinkA.ShellLinkA
  Dim y As IShellLinkA.IPersistFile

  Set x = New ShellLinkA
  Set y = x

  x.SetArguments "/?"
  x.SetDescription "Uh-oh..."
  x.SetIconLocation "sciezka do ikony", 6
'np.c:\sad.ico
  x.SetPath "sciezka do programu"
'np.c:\abc.exe
  x.SetShowCmd 3
  x.SetWorkingDirectory "j:\"
  y.Save StrConv("c:\my_shortie.lnk", vbUnicode), 0
  'tu podajesz gdzie chcesz miec link
  Set y = Nothing
  Set x = Nothing

22-01-2004 16:13
Pokaż profil deywid  Wyślij email do deywid        5625009
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

znalazłem jeszcze w MSDN to z czym miales problem
czyli z ta funkcja api..moze cos rozjasni...
      Option Explicit

      'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
      'statement to Vb5stkit.dll.

      Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _
      lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
      lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

      Sub Command1_Click()

        Dim lReturn As Long

        'Add to Desktop
        lReturn = fCreateShellLink("....Desktop", _
        "Shortcut to Calculator", "c:Winntsystem32calc.exe", ""

        'Add to Program Menu Group
        lReturn = fCreateShellLink("", "Shortcut to Calculator", _
        "c:Winntsystem32calc.exe", ""

        'Add to Startup Group

        'Note that on Windows NT, the shortcut will not actually appear
        'in the Startup group until your next reboot.
        lReturn = fCreateShellLink("Startup", "Shortcut to Calculator", _
        "c:Winntsystem32calc.exe", ""

      End Sub

[Post edytowany dnia 22-01-2004 16:19 przez deywid]

22-01-2004 16:18
Pokaż profil deywid  Wyślij email do deywid        5625009
Sen




Typ: neutral
Postów: 20
Zarejestrowany: Jan 2004

Dzięki!!!
Pierwsza metoda działa zaje....

22-01-2004 16:52
Pokaż profil Sen  Wyślij email do Sen   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1