title image


Smiley bittscheeee...
Declarations:



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



Declare Function GetActiveWindow Lib "user32" () As Long

Declare Function ShowWindow Lib "user32" (Byval hwnd As Long, Byval nCmdShow As Long) As Long



Const SW_MAXIMIZE = 3

Const SW_MINIMIZE = 6

Const SW_RESTORE = 9



Und dann im Code:



action = "open"

xFile := "C:\Temp\WordDoc.doc"



'- Notes- Fenster- Auslesen, bevor die Anwendung gestartet wird

wHandle = GetActiveWindow()

'- Anwendung starten

ok = ShellExecute( 0, action, xFile, 0 , 0 , 3 )

'- Notes- Fenster minimieren, damit die aufgerufene Applikation in den Vordergrund kommt

Call ShowWindow( wHandle , SW_MINIMIZE )



Gruss

Tode



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: