Beiträge von Tweaky

#Region    ;************ Includes ************
#Include <GDIPlus.au3>
#Include <File.au3>
#EndRegion ;************ Includes ************
_bild_text("C:\Windows\Web\Wallpaper\Windows\img0.jpg", 500, 500, "Hallo", 50)

Func _bild_text($bild_quelldatei_func, $text_pos_x_func, $text_pos_y_func, $text, $text_schriftgroesse_func)
    Local $aInfo, $desktopbild_zieldatei, $hBrush, $hBrush2, $hDestination, $hFamily, $hFont, $hFormat, $zielbild_tmp, $zielbild_io
    Local $hGraphic, $hGraphic1, $hGraphics, $hSource1, $hGui_bild_text, $himg, $iX, $iX1, $iY1, $iy, $tLayout, $text_breite, $text_hoehe
    Local $szDrive, $szDir, $szFName, $szExt

    _GDIPlus_Startup()

    ;kompletter Pfad Zielbild
    _PathSplit($bild_quelldatei_func, $szDrive, $szDir, $szFName, $szExt)

    $desktopbild_zieldatei = $szFName & "2" & $szExt
    $zielbild_io = @TempDir & "\" & $desktopbild_zieldatei

    ;kompletter Pfad Tempbild (Originalbild auf Desktop vergrößert)
    $zielbild_tmp = @TempDir & $szFName & " temp" & $szExt

    FileDelete($zielbild_io)
    FileDelete($zielbild_tmp)

        $hSource1 = _GDIPlus_ImageLoadFromFile($bild_quelldatei_func)
    $iX1 = _GDIPlus_ImageGetWidth($hSource1)
    $iY1 = _GDIPlus_ImageGetHeight($hSource1)

    ;Zeichnet das Bild auf Desktopgroesse
    $hBitmap = _GDIPlus_BitmapCreateFromScan0(@DesktopWidth, @DesktopHeight) ;create an empty bitmap
    $hGraphic1 = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsDrawImageRect($hGraphic1, $hSource1, 0, 0, @DesktopWidth, @DesktopHeight)

    ;Speichert das Bild
    _GDIPlus_ImageSaveToFile($hBitmap, $zielbild_tmp)

    ;Ressourcen freigeben
    _GDIPlus_ImageDispose($hSource1)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGraphic1)

    $himg = _GDIPlus_ImageLoadFromFile($zielbild_tmp)
    $hGraphics = _GDIPlus_ImageGetGraphicsContext($himg)

    ;Abmaße ermitteln
    $iX = _GDIPlus_ImageGetWidth($himg)
    $iy = _GDIPlus_ImageGetHeight($himg)

    If $text_pos_x_func > 0 Then ;+Wert = Abstand von links
        $iX -= $text_pos_x_func
    Else ;-Wert = Abstand von rechts
        $text_pos_x_func += $iX
    EndIf

    If $text_pos_y_func > 0 Then ;+Wert = Abstand von oben
        $iy -= $text_pos_y_func
    Else ;-Wert = Abstand von unten
        $text_pos_y_func += $iy
    EndIf

    ;Schrift erstellen
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    $hFont = _GDIPlus_FontCreate($hFamily, $text_schriftgroesse_func, 1)

    $tLayout = _GDIPlus_RectFCreate($text_pos_x_func, $text_pos_y_func)

    ;Ermittelt die Abmaße des Textes
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $text, $hFont, $tLayout, $hFormat)
    $text_breite = Ceiling(DllStructGetData($aInfo[0], "Width"))
    $text_hoehe = Ceiling(DllStructGetData($aInfo[0], "Height"))

    ;Zeichnet ein weißes Feld hinter den Text
    $hBrush2 = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
    _GDIPlus_GraphicsFillRect($hGraphics, $text_pos_x_func, $text_pos_y_func, $text_breite, $text_hoehe, $hBrush2)

    ;Zeichnet den Text
    $hBrush = _GDIPlus_BrushCreateSolid()
    _GDIPlus_GraphicsDrawStringEx($hGraphics, $text, $hFont, $aInfo[0], $hFormat, $hBrush)
    _GDIPlus_GraphicsDrawImage($hGraphics, $himg, $iX, $iy)

    ;Speichert die Datei
    _GDIPlus_ImageSaveToFile($himg, $zielbild_io)

    ;Ressourcen freigeben
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_ImageDispose($himg)
    _GDIPlus_Shutdown()
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)

    _GDIPlus_Shutdown()

    FileDelete($zielbild_tmp)

    ShellExecute($zielbild_io)

    Return $zielbild_io
EndFunc   ;==>_bild_mit_text

#Region    ;************ Includes ************
#Include <GDIPlus.au3>
#Include <File.au3>
#EndRegion ;************ Includes ************
_bild_text("C:\Windows\Web\Wallpaper\Windows\img0.jpg", 500, 500, "Hallo", 50)


Func _bild_text($bild_quelldatei_func, $text_pos_x_func, $text_pos_y_func, $text, $text_schriftgroesse_func)
    Local $aInfo, $desktopbild_zieldatei, $hBrush, $hBrush2, $hDestination, $hFamily, $hFont, $hFormat, $zielbild_tmp, $zielbild_io
    Local $hGraphic, $hGraphic1, $hGraphics, $hSource1, $hGui_bild_text, $himg, $iX, $iX1, $iY1, $iy, $tLayout, $text_breite, $text_hoehe
    Local $szDrive, $szDir, $szFName, $szExt

    _GDIPlus_Startup()

    ;kompletter Pfad Zielbild
    _PathSplit($bild_quelldatei_func, $szDrive, $szDir, $szFName, $szExt)

    $desktopbild_zieldatei = $szFName & "2" & $szExt
    $zielbild_io = @TempDir & "\" & $desktopbild_zieldatei

    ;kompletter Pfad Tempbild (Originalbild auf Desktop vergrößert)
    $zielbild_tmp = @TempDir & $szFName & " temp" & $szExt

    FileDelete($zielbild_io)
    FileDelete($zielbild_tmp)

    $hSource1 = _GDIPlus_ImageLoadFromFile($bild_quelldatei_func)
    $iX1 = _GDIPlus_ImageGetWidth($hSource1)
    $iY1 = _GDIPlus_ImageGetHeight($hSource1)

    $hGui_bild_text = GUICreate("GDI+", $iX1, $iY1)
    GUISetState(@SW_HIDE)

    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGui_bild_text)

    ;Zeichnet das Bild auf Desktopgroesse
    $hDestination = _GDIPlus_BitmapCreateFromGraphics(@DesktopWidth, @DesktopHeight, $hGraphic)
    $hGraphic1 = _GDIPlus_ImageGetGraphicsContext($hDestination)
    _GDIPlus_GraphicsDrawImageRect($hGraphic1, $hSource1, 0, 0, @DesktopWidth, @DesktopHeight)

    ;Speichert das Bild
    _GDIPlus_ImageSaveToFile($hDestination, $zielbild_tmp)

    ;Ressourcen freigeben
    _GDIPlus_ImageDispose($hSource1)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_BitmapDispose($hDestination)
    _GDIPlus_GraphicsDispose($hGraphic1)

    $himg = _GDIPlus_ImageLoadFromFile($zielbild_tmp)
    $hGraphics = _GDIPlus_ImageGetGraphicsContext($himg)

    ;Abmaße ermitteln
    $iX = _GDIPlus_ImageGetWidth($himg)
    $iy = _GDIPlus_ImageGetHeight($himg)

    $text_pos_x_func += $iX
    $text_pos_y_func += $iy

    ;Schrift erstellen
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    $hFont = _GDIPlus_FontCreate($hFamily, $text_schriftgroesse_func, 1)

    $tLayout = _GDIPlus_RectFCreate($text_pos_x_func, $text_pos_y_func)

    ;Ermittelt die Abmaße des Textes
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $text, $hFont, $tLayout, $hFormat)
    $text_breite = Ceiling(DllStructGetData($aInfo[0], "Width"))
    $text_hoehe = Ceiling(DllStructGetData($aInfo[0], "Height"))

    ;Zeichnet ein weißes Feld hinter den Text
    $hBrush2 = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
    _GDIPlus_GraphicsFillRect($hGraphics, $text_pos_x_func, $text_pos_y_func, $text_breite, $text_hoehe, $hBrush2)

    ;Zeichnet den Text
    $hBrush = _GDIPlus_BrushCreateSolid()
    _GDIPlus_GraphicsDrawStringEx($hGraphics, $text, $hFont, $aInfo[0], $hFormat, $hBrush)
    _GDIPlus_GraphicsDrawImage($hGraphics, $himg, $iX, $iy)

    ;Speichert die Datei
    _GDIPlus_ImageSaveToFile($himg, $zielbild_io)

    ;Ressourcen freigeben
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_ImageDispose($himg)
    _GDIPlus_Shutdown()
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)

    _GDIPlus_Shutdown()

    FileDelete($zielbild_tmp)

    ShellExecute($zielbild_io)

    Return $zielbild_io
EndFunc   ;==>_bild_mit_text

#Region    ;************ Includes ************
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
#include <WinAPIFiles.au3>
#EndRegion ;************ Includes ************

GUICreate("Test", -1, -1, 0, 0)

;Deklarierung MY_WM_DEVICECHANGE (Laufwerk hinzu oder entfernt)
Global Const $DBT_DEVICEARRIVAL = 0x8000 ; A device or piece of media has been inserted and is now available.
Global Const $DBT_DEVICEREMOVECOMPLETE = 0x8004 ; A device or piece of media has been removed.

GUIRegisterMsg($WM_DEVICECHANGE, 'MY_WM_DEVICECHANGE') ;Laufwerk hinzu oder entfernt

_test()

Func MY_WM_DEVICECHANGE($hWnd, $Msg, $wParam, $lParam)
    #forceref $hWnd, $Msg, $lParam
    Switch $wParam
        Case $DBT_DEVICEARRIVAL ;Laufwerk hinzu
            _test()
        Case $DBT_DEVICEREMOVECOMPLETE ;Laufwerk entfernt
            _test()
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>MY_WM_DEVICECHANGE


Func _test()
    $sDrive = 'r:'
    $Ret = _GetDriveInfo($sDrive)
    If IsArray($Ret) Then
        _ArrayDisplay($Ret, 'Informationen über Laufwerk "' & $sDrive & '"')
    Else
        MsgBox(0, 'Fehler', $Ret)
    EndIf
EndFunc   ;==>_test


While 1
    Sleep(10)
WEnd


;===============================================================================
; Function Name: _GetDriveInfo($sDrive)
; Description:: Erweiterte Informationen zu einer Festplatte/USB-Stick
; Parameter(s): $sDrive = Laufwerksbuchstabe
; Requirement(s): ---
; Return Value(s): 2D-Array mit Bezeichnung und Wert (siehe Beispiel)
; Author(s): Oscar (http://www.autoit.de)
;===============================================================================
Func _GetDriveInfo($sDrive)
    Local Const $aBusType = StringSplit('UNKNOWN,SCSI,ATAPI,ATA,1394,SSA,FIBRE,USB,RAID,ISCSI,SAS,SATA,SD,MMC,Virtual,FileBakVirtual,Spaces,NVMe,SCM,UFS,MAX,MAX Res', ',', $STR_NOCOUNT)
    $sDrive = StringRegExpReplace($sDrive, '(?i)(.*)([a-z]{1}:)(.*)', '$2')
    Local $sDriveType = DriveGetType($sDrive)
    If $sDriveType <> 'Fixed' And $sDriveType <> 'Removable' Then SetError(1, 0, 1)
    If Not FileExists($sDrive) Then Return SetError(1, 0, 1)
    Local $wbemFlagReturnImmediately = 0x10
    Local $wbemFlagForwardOnly = 0x20
    Local $colItems = ''
    Local $aPartition, $aPhysicalDrive, $aOut[14][2]
    $objWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
    If Not IsObj($objWMIService) Then Return SetError(2, 0, 2)
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_LogicalDiskToPartition', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If StringInStr($objItem.Dependent, '"' & $sDrive & '"') Then
                $aPartition = StringRegExp($objItem.Antecedent, 'DeviceID="(.*)"', 3)
            EndIf
        Next
    EndIf
    If Not IsArray($aPartition) Then Return SetError(3, 0, 3)
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_DiskDriveToDiskPartition', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If StringInStr($objItem.Dependent, '"' & $aPartition[0] & '"') Then
                $aPhysicalDrive = StringRegExp($objItem.Antecedent, 'DeviceID="(.*)"', 3)
            EndIf
        Next
    EndIf
    If Not IsArray($aPhysicalDrive) Then Return SetError(4, 0, 4)
    Local $iBus = _WinAPI_GetDriveBusType($sDrive)
    $aPhysicalDrive[0] = StringReplace($aPhysicalDrive[0], '\\', '\')
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_DiskDrive', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If StringInStr($objItem.DeviceID, $aPhysicalDrive[0]) Then
                $aOut[0][0] = 'Volume-Label'
                $aOut[0][1] = DriveGetLabel($sDrive)
                $aOut[1][0] = 'Serial-Nr. (Volume)'
                $aOut[1][1] = DriveGetSerial($sDrive)
                $aOut[2][0] = 'Model'
                $aOut[2][1] = $objItem.Model
                $aOut[3][0] = 'Serial-Nr. (Drive)'
                $aOut[3][1] = $objItem.SerialNumber
                $aOut[4][0] = 'Interface'
                $aOut[4][1] = $aBusType[$iBus]
                $aOut[5][0] = 'Size'
                $aOut[5][1] = _WinAPI_StrFormatByteSizeEx($objItem.Size)
                $aOut[6][0] = 'Media Type'
                $aOut[6][1] = StringRegExpReplace($objItem.MediaType, '[^[:print:]]', ' ')
                $aOut[7][0] = 'Total Cylinders'
                $aOut[7][1] = $objItem.TotalCylinders
                $aOut[8][0] = 'Total Heads'
                $aOut[8][1] = $objItem.TotalHeads
                $aOut[9][0] = 'Total Tracks'
                $aOut[9][1] = $objItem.TotalTracks
                $aOut[10][0] = 'Total Sectors'
                $aOut[10][1] = $objItem.TotalSectors
                $aOut[11][0] = 'Tracks Per Cylinder'
                $aOut[11][1] = $objItem.TracksPerCylinder
                $aOut[12][0] = 'Sectors Per Track'
                $aOut[12][1] = $objItem.SectorsPerTrack
                $aOut[13][0] = 'Bytes Per Sector'
                $aOut[13][1] = $objItem.BytesPerSector
            EndIf
        Next
    EndIf
    $objWMIService = ''
    Return $aOut
EndFunc   ;==>_GetDriveInfo