"dobbeltklik" på fil

I Modul:
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

Bruges:
a = ShellExecute(hwnd, "Open", Filnavn, Filnavn, "", 1)

Hvorfor filnavn to gange - og hvad forstås ved 1-tallet? nShowCmd, hvad skal den sætes til for at skjule com-prompten?

Kan ikke lige huske det - men det virker.

OK så - kikker på allapi og læser om det

Hej.

1-tallet betyder at vinduet (shell) åbnes med normal visning, alternativer er 0 og 2 - h.h.v. minimeret og maksimeret)

M.v.h.  Jørn

Hmm - nu har jeg ikke prøvet det, men jeg ville gerne, at shell forblev "usynlig", men den applikation, der startes op (fx. word) blev maximeret

martin_moth du plejer da godt at kunne lave lidt API.. Men hvis du ikke har fået det til at virke, så er her måske lidt hjælp..

Option Explicit

Private 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

Private Const SW_SHOWNORMAL    As Long = 1
Private Const SW_SHOWMINIMIZED As Long = 2
Private Const SW_SHOWMAXIMIZED As Long = 3

Private Sub Form_Load()
Dim strFile As String
Dim strPath As String

  strFile = "D:\AOF-Dansk\Haveparty.doc"

  strPath = Left$(strFile, InStrRev(strFile, "\"))
  Call ShellExecute(Me.hwnd, "Open", "WINWORD.EXE", strFile, strPath, SW_SHOWMAXIMIZED)
End Sub

Ja, men problemet er, at jeg er i den sindsyge situation, at jeg sidder og koder i Textpad, og skulle gerne have det 90% på plads når jeg hopper over til VB (som er på min hjemmePC som står i en flyttekasse.... Så jeg kan ikke lige teste :o(

Se - jeg skal ikke selv angive "winword.exe", windows skal selv finde en passende app. at starte op afhængig af extention på filen...

Hvad er der i vejen med mit (godkendte) forslag. Jeg har brugt det i stribevis af programmer og det virker upåklageligt.
Filnavn = sti+filnavn

peter.erikse > Problemet er at du angiver "Filnavn" nummer 2 som et parameter. Det kan godt være at det virker, men det vil svare til at du skræv sådan:

"program.exe program.exe" eller "c:\...\dokument.doc c:\...\dokument.doc" under kør.. ;)


martin_moth > ellers så gør du bare såadn:

Private Sub Form_Load()
Dim strFile As String
Dim strPath As String

  strFile = "D:\AOF-Dansk\Haveparty.doc"

  strPath = Left$(strFile, InStrRev(strFile, "\"))
  Call ShellExecute(Me.hwnd, "Open", strFile, vbNullString, strPath, SW_SHOWMAXIMIZED)
End Sub

Du havde bare behøvet at skrive

Call ShellExecute(Me.hwnd, "Open", "fil.doc", vbNullString, "c:\dokumenter", SW_SHOWMAXIMIZED)

strFile = filnavn uden path
strPath = path uden filnavn

:o)

Vil du have lidt i godteposen sjh?

nææ tak.. jeg mangler ikke noget :)