Auf jeden Fall eine interessante Funktion BugFix, und du meinst das würde auch für diesen Ws Aufruf funktionieren?
Beiträge von casi4712
-
-
ji Hallo Mombi, danke, dass hatte ich schon probiert, das funktioniert deshalb nicht, da in dem PS ein Grid geöffnet wird, und dieses soll er anzeigen, sorry, hatte ich vielleicht sagen sollen. BugFix, dein Beispiel scheu ich mir mal an
lg und schönen Abend noch
-
Hallo liebe Scripter,
es gibt in cmd den Befehl mshta vbscript:Execute("CreateObject(""Wscript.Shell"").Run ""powershell -NoLogo -Command """"& 'file.ps1'"""""", 0 : window.close"), der es ermöglicht ein PS Script auzurufen, und das Fenster dabei komplett unsichtbar zu halten. Ich gehe mal jetzt nicht davon aus, dass es dafür auch eine Funktion in AI gibt, ich habe es folgendermaßen versucht, erhalte dann aber nur ein WS Scriptfehler:
RunWait('mshta vbscript:Execute("CreateObject(""Wscript.Shell"").Run ""powershell -NoLogo -Command """"& ""C:\Users\user\Desktop\PS_Mit_GUI\script.ps1""")', "", @SW_SHOW)
Was ist an diesem Ausdruck falsch?
Habe es auch so versucht
Run("powershell.exe -ExecutionPolicy Bypass -Command Start-Process C:\Users\user\Desktop\PS_Mit_GUI\script.ps1 -NoNewWindow -Wait")
Hier wird das Fenster aber kurz gezeigt
Vielleicht hat jemand ne Idee
LG und schöne Restwoche noch
-
ok werde mich mal mit dem Tool befassen, scheint ein geniales Tool zu sein.
lg
-
ok stimmt, hatte sie danach, hät ich drauf kommen können. Nur ich hätte die ganz gerne alle in einer MessageBox, das geht bestimmt nicht so mit dieser Methode.
lg und einen schönen Tag noch
-
leider zeigt er mir nur den ersten gefundenen Eintrah sn mit
MsgBox("","Title", $oEntity.Name)
-
okidoki schaue ich mal, wieder was gelernt
danke und schönen Abend noch
-
Wow, na das hab ich mir fast schon gedacht Aber wie bekomm ich das jetzt in meine Variable?
Danke sehr
-
Hallo liebe AutoIt Freunde,
ich versuche den Inhalt einer WMI Abfrage WMIC PATH Win32_PnPEntity WHERE "Status='Error'" GET Name,Status /value in einer Variable zu speichern, leider bleibt das Ergebnisfenster leer, sieht hier jemand den Fehler?
ZitatAutoIt
Alles anzeigen#include <AutoItConstants.au3> #include <GUIConstants.au3> #include <MsgBoxConstants.au3> $var1 = "Error'" $var3 = " where Status='" $var2 = " GET Name,Status /value" $dos = Run(@ComSpec & "/c WMIC PATH Win32_PnPEntity" & $var3 & $var1 & $var2 & @CRLF) $Message = StdoutRead($DOS) MsgBox('',"Errors", $Message)
lg und schöne Woche noch
-
ok stimmt das tuts auch, zu kleiner Monitor;)
danke
-
Problem gelöst, ein /c hilft
lg und eine schöne Woche noch
-
@VE das ist Dein Eindruck, hat aber nichts mit der Realtät zu tun, oder woher weisst Du wiviele Stunden ich mich mit einem Teilproblem befasse, bevor ich hier zur Tastatur greife? Wenn du richtig glesen hast, dann weisst du dass mir die Lösung mit GDIPlus durchaus schon bekannt ist, leider war es mir nicht möglich hieraus eine etwas elagantere Lösung zu fabrizieren, die auch bei der Nutzung von mehreren Labels, entsprechend wiederverwertbar ist ohne hier jedesmal 100 Zeilen extra verbraten zu müssen, dass bläht die Scripte dann nur unnötig auf. Vielleicht hatte ich das nicht deutlich genug betont, dann bitte ich um Entschuldigung.
So und jetzt habe ich mir auch noch mal deinen Beitrag @Ve in dem anderen Posting angeschaut. Dies ist für sich gesehenein schönes Beispiel, hat aber mit meiner AdLibRegister Funktion, in der nur fallweise was angezeigt wird nicht viel zu tun.
Einen schönen Abend noch
lg
-
Hallo allerseits, ich versuche jetzt schin seit einiger Zeit folgenden Run Befehl hinzubekommen, aber leider macht er nichts, an der Klammer wird es ja wohl nicht liegen, dieses hier funktioniert ja auch:
run(@ComSpec & ' /k (SQLCMD -S localhost\DB -v path="' & $savepath & '" -U sa -Ppass -i "C:\Users\Administrator\Downloads\BACK\DBscripts\SQL-SicherungALL_DB.sql") & EXIT', "", @SW_SHOW)
AutoItDBBACKUP() Func DBBACKUP() $savepath = @DesktopDir & "\DB-Sicherung\mysql" If FileExists($savepath) Then Else DirCreate ( $savepath ) EndIf run(@ComSpec & ' /c (mysql.exe -uroot -ppass -s -N -e "SHOW DATABASES" | for /F "usebackq" %D in (`findstr /V "information_schema performance_schema"`) do mysqldump.exe %D -uroot -ppass --default-character-set=utf8 > "' & $savepath & '"\%D.sql") & EXIT', "", @SW_SHOW) EndFunc
Für sachdienliche Hinweise wäre ich mehr als dankbar,
schönen Abend noch und Danke schon mal
-
So ich habe das ganze noch mal auf ein Minimum reduziert, ich hatte das Problem zunächst zurückgestellt, da ich die meisten Label auch nur nach längerer Zeit aktualisiere, ist es mir vielleicht auch nicht mehr aufgegfallen, aber in diesem Bespiel sollte es schon häufiger sein, Ich denke das man das flackern der warnmeldung auf jeden Fall sehen sollte, und noch mal an@VE, ja ich hatte Deine Vorschläge auch reingebracht.
Oscar , na schön dass nicht nur mir das mit dem Geflacker auffällt, Autoit kann doch ne ganze Menge, ich bin immer noch fasziniert von den Möglichkeiten, aber wieso ist es nicht möglich ein Label völlig transparent zu schalten, das erschliest sich mir nicht ganz. Übrigens sehr gelungen was du da gezaubert hast
AutoIt
Alles anzeigen; Script Start - Add your code below here ; includes --------------------------------------------------------------------- #include-once #include <StaticConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <MemoryConstants.au3> FileInstall("C:\Users\user1\pictures\bg\Sands.jpg", "C:\Windows\Temp\hg.bmp", 1) ; opt -------------------------------------------------------------------------- Opt('MustDeclareVars', 1) ;declaration ------------------------------------------------------------------ ;GUI Variables Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142] Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122] Global $RBOX_EVENT_CLOSE = 1 Global $ROUNDES = 20, $LastHwnd = 0 Global $LastHwnd Global $GUIBKCOLOR = 0x5AA7A1 Global $BGGlobal, $BG Global $RamLabel, $ramfree Global $PageFreeLabel, $PageFree Global $LabelRamknapp = " " ;AdLibRegistering-------------------------------------------------------------------------------------------------------------------------------------------- AdlibRegister('_CheckAvlRam', 2000) AdlibRegister('_CheckAvlPage', 1220) ;----------------------------------------------------------------------------------------------------------------------------------------------------------------- ; processing --------------------------------------------------------------------------------------------------------------------------------------------------- Global $hGui = RBoxCreate("Test", 840, 625) ; Func _ShowSite() ; EXIT ; EndFunc ;==> _ShowSite() _createLabels() GUICtrlSetImage($BG, 'C:\Windows\Temp\hg.bmp') While True CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)") local $gMsg = GUIGetMsg() Switch $gMsg Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE GUIDelete($hGui) AdlibUnRegister('_CheckAvlRam') AdlibUnRegister('_CheckAvlPage') Exit EndSwitch WEnd Func _createLabels() Local $aMemStats = MemGetStats() $LabelRAMknapp = GUICtrlCreateLabel( $LabelRAMknapp, 300, 300, 120, 20); RAMWARNUNG GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9, 800) ; bold GUICtrlCreateLabel(" GB (Pagefile ver.)", 380, 360, 130, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9, 800) ; bold GUICtrlCreateLabel(" GB (RAM ver.)", 380, 400, 130, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9, 800) ; bold $PageFreeLabel = GUICtrlCreateLabel($pagefree, 350, 360, 30, 30); Page verfügbar GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9, 800) ; bold GUICtrlCreateLabel( Round($aMemStats[$MEM_TOTALPAGEFILE]/1024/1024, 2) & " GB (Pagefile tot.)", 350, 380, 130, 30) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9, 800) ; bold $RamLabel = GUICtrlCreateLabel($ramfree, 350, 400, 30, 30, $WS_EX_COMPOSITED);Ram verfügbar GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9, 800) ; bold GUICtrlCreateLabel( Round($aMemStats[$MEM_TOTALPHYSRAM]/1024/1024, 2) & " GB (RAM total)", 350, 420, 130, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9, 800) ; bold EndFunc ;Functions-------------------------------------------------- Func _CheckAvlRam() global $aMemStats = MemGetStats() global $ramfree = Round($aMemStats[$MEM_AVAILPHYSRAM]/1024/1024, 2) if $ramfree < 9 Then GUICtrlSetData($RAMLabel, $ramfree) GUICtrlSetData($LabelRAMknapp, "RAM wird knapp !!!") else GUICtrlSetData($RAMLabel, $ramfree) GUICtrlSetData($LabelRAMknapp, "") endif EndFunc Func _CheckAvlPage() global $aMemStats = MemGetStats() global $pagefree = Round($aMemStats[$MEM_AVAILPAGEFILE]/1024/1024, 2) GUICtrlSetData($PageFreeLabel, $pagefree) EndFunc ;GUI STYLE---------------------------------------------------------------- Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1) Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP) GUICtrlSetState($hGUI, $GUI_DISABLE) $BG = GUICtrlCreatePic('C:\Windows\Temp\hg.bmp', 0, 25, 920, 660) GUICtrlCreatePic ( $BG, 0, 25, 920, 660 ) GUICtrlSetState(-1, $GUI_DISABLE) GUISetBkColor($GUIBKCOLOR, $GUI) _GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES) $RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25) GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0) GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2) GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800) GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555) $Title &= " " Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas") GUICtrlSetBkColor($hTitle, -2) Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25) GUICtrlSetState($Graphic, $Gui_DISABLE) If $show = 1 Then GUISetState(@SW_SHOW, $GUI) Return $GUI EndFunc Func CheckX($hGui, $CtrlID, $sCMD, $eCMD) Local $cGui = GUIGetCursorInfo($hGui) If Not IsArray($cGui) Then Return 0 EndIf If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4]) If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4]) EndFunc Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc
Die Besten Grüße, Danke und
ein schönes Wochenende
-
schaue ich mir noch mal, komischerweise sehr ich das Problen hier auf meinem Recher im Office nicht, möglicherweise hängt das mit dem verwendeten Monitor oder der Grafikkarte zusammen, ich schaue nachher noch mal.
-
Lies mal in den angelsächsischen Foren, dort wird dieses Problem schon als Problem gesehen, leider habe ich bislang keine wiklich eleganten Lösungen gefunden, ich bin doch nicht bekloppt, auch wenn ich mir mittlrweile fast so vorkomme und besonders pingelich bin ich zudem auch nicht. So ich stell dass jetzt noch mal so zusammen dass man dass sieht was ich meine.
-
Recht schönen Dank,
Du hast Dir richtig Arbeit gemacht aber ich denke ich habe mich wieder falsch ausgdrückt. Na bin auch noch nicht allzu lange in Deutschland. Es geht hier nicht um das bewusste Hervorzaubern eines Labels per Buttonklick, sondern um das Erscheinen eines Labels beim Erreichen eines bestimmten Wertes, welches periodisch per AdlibRegister berrechnet wird. Ich versuchs mal mit einer Art PseudoCode, vielleicht wird des dann klar.
Adlibaufruf, alle 1000ms
Aldlib berrechnet $FreeRAM
Wenn $FreeRam < 3 kein Label einblenden
Sonst Label eiblenden "Speicher wird knapp)
Aber halt das ganze ohne Texthintergrundgeflacker alle 1000ms
Hoffe jeztzt ist es klar geworden
Danke noch mal
und schönen Abend noch
-
Die crlsetdata stehen da sind natürlich überflüssig, da ich ja hier kein normales Flackerlabel erzeugen will. So ich erkläre es jetzt noch mal. Bei einem normalen Label, dass fallweise, also beim erreichen einer Bedingung eingeblendet wird, entsteht ein unschönes flackern, dass soll wohl auch normal sein. Ich möchte mit einer GDI Plus Varainte ein bedingtes Label erzeugen ohne diese Problematik. Ich hoffe ich habe mich dieses mal verständlich ausgedrückt. Ich kann mir nicht vorstellen, dass über diese Problematik hier noch nie jemand gestolpert ist.
lg
-
Danke erstmal,
na ich weiss schon dass da einige Fehler drin sind, mir war es gelungen ein statisches Label zu erzeugen, dass ich wie folgt erzeuge:
AutoIt
Alles anzeigen#include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <GDIPlus.au3> #include <MemoryConstants.au3> _GDIPlus_Startup() Const $BKGND_FILE = "C:\Users\user1\Pictures\bg\19542_en_1.jpg" Local $hImage_Bg = _GDIPlus_ImageLoadFromFile($BKGND_FILE) Local $hTexture = _GDIPlus_TextureCreate($hImage_Bg) Global $RamLabel, $ramfree Global $PageFreeLabel, $PageFree Global $LabelRamknapp = " " ;GUI Make Global $seconds = 60 Global Const $iW = 800, $iH = 600 $hMain = GUICreate("Timer", $iW, $iH) GUISetBkColor(0x2C6135) $lblTime = GUICtrlCreatePic("", 0, 0, $iW, $iH) GUICtrlSetState(-1, $GUI_DISABLE) _CheckAvlRam() GUISetState(@SW_SHOW, $hMain) AdlibRegister("_CheckAvlRam", 1000) ;Mainloop While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then _GDIPlus_BrushDispose($hTexture) _GDIPlus_ImageDispose($hImage_Bg) _GDIPlus_Shutdown() GUIDelete() Exit EndIf WEnd ;AdlibRegisterFunktion Func _CheckAvlRam() global $aMemStats = MemGetStats() global $ramfree = Round($aMemStats[$MEM_AVAILPHYSRAM]/1024/1024, 2) if $ramfree < 5 Then GUICtrlSetData($RAMLabel, $ramfree) GUICtrlSetData($LabelRAMknapp, "RAM wird knapp !!!") else GUICtrlSetData($RAMLabel, $ramfree) GUICtrlSetData($LabelRAMknapp, "") endif Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH) Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) _GDIPlus_GraphicsSetSmoothingMode($hGfx, 4 + (@OSBuild > 5999)) _GDIPlus_GraphicsSetTextRenderingHint($hGfx, 3) _GDIPlus_GraphicsFillRect($hGfx, 0, 0, $iW, $iH, $hTexture) Local Const $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF) Local Const $hFormat = _GDIPlus_StringFormatCreate() Local Const $hFamily = _GDIPlus_FontFamilyCreate("Arial") Local Const $hFont = _GDIPlus_FontCreate($hFamily, 50) Local Const $tLayout = _GDIPlus_RectFCreate(0, 0, $iW, $iH) _GDIPlus_StringFormatSetAlign($hFormat, 1) _GDIPlus_StringFormatSetLineAlign($hFormat, 1) _GDIPlus_GraphicsDrawStringEx($hGfx, StringFormat("Ram bald voll"), $hFont, $tLayout, $hFormat, $hBrush) _GDIPlus_BrushDispose($hBrush) _GDIPlus_FontFamilyDispose($hFamily) _GDIPlus_FontDispose($hFont) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_GraphicsDispose($hGfx) Local Const $hBitmap_GDI = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) _GDIPlus_BitmapDispose($hBitmap) _WinAPI_DeleteObject(GUICtrlSendMsg($lblTime, 0x0172, 0x0000, $hBitmap_GDI)) ;$STM_SETIMAGE = 0x0172, $IMAGE_BITMAP = 0 _WinAPI_DeleteObject($hBitmap_GDI) $seconds -= 2 If $seconds < 0 Then _End() _ EndFunc ;==>_CheckAvlRam func _End() AdlibUnRegister("_CheckAvlRam") MsgBox(262144,"Title", "Text", $WS_EX_TOPMOST) EndFunc
aber an welcher Stelle kann ich hier eine if bedingung erzeugen, dass dieses nur in einem bestimmten Fall angezeigt wird?
danke nochmal
lg
-
Hallo allerseits,
ich habe nach lngerer Pause noch mal versucht mich des leidigen Flickerproblems anzunehmen, leider ohne Erfolg. Es geht darum dass nornamle Labels, sofern sie nur bei einer bestimmten Bedingung angezwigt werden, soolen, bei Refresh einen unschönen Hintergrundblock anzeigen. Dieses liegt wohl anscheinend daran, dass das Hintergrundbild über das Label rübergezeichnet wird. So richtige brauchbare Lösungen habe ich leider bisher nicht gefunden, ausser dass hier mit einem entsprechenden Redraw gearbeitet werden muss. Bei einer If Beding bekomme ich das leider nicht hin, da zeigt er mir erst gar nicht das Hintergrundbild. Vielleicht hat einer eine etwas saubere funktionsfähige Lösung. In diesem Beispiel soll ein Label eingeblendet werden, wenn der Speicher einen bestimmten Wert unterschritten hat.
AutoIt
Alles anzeigen#include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <GDIPlus.au3> #include <MemoryConstants.au3> _GDIPlus_Startup() Const $BKGND_FILE = "C:\Users\user1\Pictures\bg\19542_en_1.jpg" Local $hImage_Bg = _GDIPlus_ImageLoadFromFile($BKGND_FILE) Local $hTexture = _GDIPlus_TextureCreate($hImage_Bg) Global $RamLabel, $ramfree Global $PageFreeLabel, $PageFree Global $LabelRamknapp = " " ;GUI Global Const $iW = 800, $iH = 600 $hMain = GUICreate("Test", $iW, $iH) GUISetBkColor(0x2C6135) $lblTime = GUICtrlCreatePic("", 0, 0, $iW, $iH) GUICtrlSetState(-1, $GUI_DISABLE) ;_CheckAvlRam() GUISetState(@SW_SHOW, $hMain) AdlibRegister("_CheckAvlRam", 1000) ;Mainloop While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then _GDIPlus_BrushDispose($hTexture) _GDIPlus_ImageDispose($hImage_Bg) _GDIPlus_Shutdown() GUIDelete() Exit EndIf WEnd ;AdlibRegisterFunktion Func _CheckAvlRam() global $aMemStats = MemGetStats() global $ramfree = Round($aMemStats[$MEM_AVAILPHYSRAM]/1024/1024, 2) if $ramfree < 8 Then _showLabel() else endif Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH) Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) _GDIPlus_GraphicsSetSmoothingMode($hGfx, 4 + (@OSBuild > 5999)) _GDIPlus_GraphicsSetTextRenderingHint($hGfx, 3) _GDIPlus_GraphicsFillRect($hGfx, 0, 0, $iW, $iH, $hTexture) Local Const $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF) GDIPlus_BrushDispose($hBrush) _GDIPlus_FontFamilyDispose($hFamily) _GDIPlus_FontDispose($hFont) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_GraphicsDispose($hGfx) Local Const $hBitmap_GDI = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) _GDIPlus_BitmapDispose($hBitmap) _WinAPI_DeleteObject(GUICtrlSendMsg($lblTime, 0x0172, 0x0000, $hBitmap_GDI)) ;$STM_SETIMAGE = 0x0172, $IMAGE_BITMAP = 0 _WinAPI_DeleteObject($hBitmap_GDI) EndFunc ;==>_CheckAvlRam Func _ShowLabel() Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH) Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) _GDIPlus_GraphicsSetSmoothingMode($hGfx, 4 + (@OSBuild > 5999)) _GDIPlus_GraphicsSetTextRenderingHint($hGfx, 3) _GDIPlus_GraphicsFillRect($hGfx, 0, 0, $iW, $iH, $hTexture) Local Const $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF) Local Const $hFormat = _GDIPlus_StringFormatCreate() Local Const $hFamily = _GDIPlus_FontFamilyCreate("Arial") Local Const $hFont = _GDIPlus_FontCreate($hFamily, 50) Local Const $tLayout = _GDIPlus_RectFCreate(0, 0, $iW, $iH) _GDIPlus_StringFormatSetAlign($hFormat, 1) _GDIPlus_StringFormatSetLineAlign($hFormat, 1) _GDIPlus_GraphicsDrawStringEx($hGfx, StringFormat("Ram bald voll"), $hFont, $tLayout, $hFormat, $hBrush) EndFunc ;==>_CheckAvlRam
Danke schon mal im Voraus
lg