Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: Jak utworzyć skrut? OPAX RatNet Typ: neutral Postów: 21 Zarejestrowany: Mar 2005 Jak utworzyć skrut? mam pytanie jak utworzyć sktót na pulpicie albo gdzies?? _____________________________________________ Sendpack packet 17-05-2005 17:06 8910371 jamajka Typ: neutral Postów: 18 Zarejestrowany: Apr 2005 Creating a shortcut in VB is far more complicated than it should be. The easiest way to create a shortcut is to add it to the recent documents list, and then move it to where you want it to go. znaczy mniej więcej: Tworzenie skrótu w VB jest daleko więcej skomplikowane niż być powinno. Najlepsz± drog± do utworzenia skrótu jest dodanie do listy ostatnio otwartych dokumentów i przeniesienie go z tego miejsca dok±d chcesz. Create a File Shortcut (Tworzenie pliku skrótu) Otwórz nowy projekt, wrzuć na formę: CommandButtona i nazwij go cmdMakeLNKFile, 2 TextBoxy i nazwij je txtTarget oraz txtLnkName. dodaj referencje dla Windows Script Host Object Model (plik: wshom.ocx, znajduje się w twoim folderze systemowym) Skopiuj ten kod do sekcji deklaracji: Dim Shell As WshShell Dim Shortcut As WshShortcut A ten dodaj do swojej formy Private Sub cmdMakeLNKFile_Click() 'inicjalizacja obiektu WshShell Set objShell = New WshShell 'inicjalizacja obiektu WshShortcut 'kompletna nazwa .lnk file, zawiera pełn± ¶cieżkę plus rozszerzenie .LNK file Set objShortcut = objShell.CreateShortcut (txtLnkName.Text) ' nadawanie nazwy plikowi .lnk file, ej. "c:windowscalc.exe" objShortcut.TargetPath = txtTarget.Text ' (opcjonalnie) := wiersz polecenia wykorzystuj±cy wskazówki do pliku ' wpisane w txtTarget.Text ' objShortcut.Argumenty = xxxx ' (opcjonalnie) : = aktualny plik ikonki : = Użycie tej samej ikonki pliku ' wyj¶ciowego, nie angażuje następnej linii. ' objShortcut.IconLocation = xxxx ' zapis.lnk objShortcut.Save End Sub Tworzenie skrótu [ Przyznaję, kod nie testowany przeze mnie - wierzę, że zadziała. Tu możesz podejrzeć trochę [ i tutaj [ a także tutaj [ [Post edytowany dnia 18-05-2005 16:32 przez jamajka] _____________________________________________ Chcę wiedzieć, ale czy potrafię zrobić? 18-05-2005 16:19 Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |