AutoIt Français

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.0
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#cs
FUNCTION PBMAIN() AS LONG

  LOCAL sz AS ASCIIZ * %MAX_PATH, iret as long
  LOCAL hWnd AS LONG, hInst AS LONG, icmdShow AS LONG

   hWnd        = GetDesktopWindow()
   hINst        = GetModuleHandle ("shimgvw.dll") * 
   iCmdShow  = %SW_SHOW
   sz             = "C:\folder\...\amd,sadsmand\nmdnamsnd.png"

   iRet = ImageView_Fullscreen (hWnd, hINst, sz, iCmdShow) 

END FUNCTION

The doc is not real clear if you need an instance handle for the DLL file or for the owning program. If above does not work try making hinst = GetModuleHandle(BYVAL %NULL) and try again.

#ce

Dim $dll=-1
$title_img=@ScriptDir&"\lac_enghien.jpg"
Opt("OnExitFunc","My_exit")

$dll=DllOpen("shimgvw.dll")
If $dll=-1 Then Exit 1
ConsoleWrite("$dll = "&$dll&@CRLF)



;HWND GetDesktopWindow(VOID);
$hwnd=DllCall("user32.dll","HWND","GetDesktopWindow")
If @error Then 
    ConsoleWrite(@error&@CRLF)
    Exit 2
EndIf
$hwnd=$hwnd[0]
ConsoleWrite("hwnd = " &$hwnd&@CRLF)
;HMODULE WINAPI GetModuleHandle(  __in_opt  LPCTSTR lpModuleName);
$hinst=DllCall("Kernel32.dll","ptr","GetModuleHandle","str","shimgvw.dll")
If @error Then 
    ConsoleWrite(@error&@CRLF)
    Exit 3
EndIf
$hinst=$hinst[0]
ConsoleWrite("hinst = " &$hinst&@CRLF)


DllCall($dll,"none","ImageView_Fullscreen","HWND",$hwnd,"ptr",$hinst,"wstr",$title_img,"int",@SW_SHOW)

Sleep(1000)

Exit 0




Func My_exit()
    If $dll<>-1 Then DllClose($dll)
EndFunc