Wenn es Sie auch nervt, das der Win95 bzw. WinNT
Explorer ständig in ein und dem selben Verzeichnis startet, egal in welchem Verzeichnis
Sie beim letzten schließen des Explorers gestanden haben, dann ist dieser Tipp genau das
richtige für Sie.
Sie benötigen zuerst einmal ein neues Projekt und ein Modul, in das Sie folgendes
eingeben
Allgemein/Deklarationen
Const SW_NORMAL = 1
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWDEFAULT = 10
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOWNORMAL = 1 Const HWND_DESKTOP = 0
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4
Public Declare Function ShellExecute Lib
"shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Desweiteren geben Sie im Modul folgendes an.
Sub main()
pfadangabe = InputBox("Welcher Pfad soll geöffnet werden ?",
"Explorerstart", "C:\TEMP")
r = ShellExecute(HWND_DESKTOP, "Open", "explorer.exe", "/e,"
& pfadangabe, 0&, SW_SHOWNORMAL)
End
End Sub
Wie Sie bemerken werden, ist dieser Tipp so aufgebaut, das man das Startverzeichnis beim
Start angeben muß, es ist aber genau so denkbar, dieses kleine Programm im Hintergrund
laufen zu lassen (Siehe Tipp Programmfortsetzung erst nach Anwendungsende ) und beim Beenden des Explorers das aktuelle Verzeichnis zu
ermitteln, in eine Datei zu schreiben, bei Wiederaufruf diese Angabe auszulesen und den
Explorer mit diesem Verzeichnis zu starten.
Dann können Sie sich die Abfrage sparen.
Für unseren Test soll aber diese Art reichen.
Für die eigentliche Aktion benötigen Sie in Ihrem Projekt keine Form.
Gestartet wird die MAIN Prozedur. Wenn Sie allerdings Ihrem Programm ein Icon zuordnen
möchten, belassen Sie die Form im Projekt, sonst geht's nicht. |
