Beiträge von Oscar

**Oscar**

Das geht auch einfacher. Es gibt dafür ein Event ($GUI_EVENT_RESTORE). Einfach eine Redraw-Funktion damit aufrufen:

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{F1}", "_shoot")

[/autoit] [autoit][/autoit] [autoit]

Opt('GUIOnEventMode', 1)
GUIRegisterMsg($WM_PAINT, 'WM_PAINT')

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup() ;Vorschau
Global $iPreviewMaxDim = 200, $hPreviewBitmap, $iPreviewWidth, $iPreviewHeight

[/autoit] [autoit][/autoit] [autoit]

Global $hPreviewGui = GUICreate('Vorschau-Fenster', $iPreviewMaxDim, $iPreviewMaxDim + 24, -1, -1)
Global $hPreviewGraphic = _GDIPlus_GraphicsCreateFromHWND($hPreviewGui)
GUISetState(@SW_SHOW, $hPreviewGui)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
GUISetOnEvent($GUI_EVENT_RESTORE, '_Redraw')
$datei = @TempDir & "\" & "test.jpg"
_ScreenCapture_Capture($datei, 0, 0, 100, 100)
_PreviewLoadImage($datei)

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(10)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _end()
_GDIPlus_BitmapDispose($hPreviewBitmap)
_GDIPlus_GraphicsDispose($hPreviewGraphic)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_end

[/autoit] [autoit][/autoit] [autoit]

Func _PreviewLoadImage($sImgFile)
$hPreviewBitmap = _GDIPlus_BitmapCreateFromFile($sImgFile)
If $hPreviewBitmap = 0 Then
_GDIPlus_GraphicsFillRect($hPreviewGraphic, 0, 0, $iPreviewMaxDim, $iPreviewMaxDim)
Return
EndIf
$iPreviewWidth = _GDIPlus_ImageGetWidth($hPreviewBitmap)
$iPreviewHeight = _GDIPlus_ImageGetHeight($hPreviewBitmap)

[/autoit] [autoit][/autoit] [autoit]

$hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, 200, 0)
_GDIPlus_MatrixRotate($hMatrix, 90, "False")
_GDIPlus_GraphicsSetTransform($hPreviewGraphic, $hMatrix)
_GDIPlus_GraphicsClear($hPreviewGraphic)
_GDIPlus_GraphicsDrawImage($hPreviewGraphic, $sImgFile, -$iPreviewWidth / 2, -$iPreviewHeight / 2)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$iVector = $iPreviewWidth / $iPreviewHeight
If $iVector > 1 Then
$iPreviewWidth = $iPreviewMaxDim
$iPreviewHeight = Int($iPreviewWidth / $iVector)
Else
$iPreviewHeight = $iPreviewMaxDim
$iPreviewWidth = Int($iPreviewHeight * $iVector)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$hBrush = _GDIPlus_BrushCreateSolid(0xFFEBCD)
$hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
$hBrush = _GDIPlus_BrushCreateSolid(0xFF8EB8FD) ;Hintergrundfarbe

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsFillRect($hPreviewGraphic, 0, 0, $iPreviewMaxDim, $iPreviewMaxDim, $hBrush)
_GDIPlus_GraphicsDrawImageRect($hPreviewGraphic, $hPreviewBitmap, ($iPreviewMaxDim - $iPreviewWidth) / 2, ($iPreviewMaxDim - $iPreviewHeight) / 2, $iPreviewWidth, $iPreviewHeight)
EndFunc ;==>_PreviewLoadImage

[/autoit] [autoit][/autoit] [autoit]

Func _Redraw()
_GDIPlus_GraphicsDrawImageRect($hPreviewGraphic, $hPreviewBitmap, ($iPreviewMaxDim - $iPreviewWidth) / 2, ($iPreviewMaxDim - $iPreviewHeight) / 2, $iPreviewWidth, $iPreviewHeight)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func WM_PAINT($hWnd, $Msg, $wParam, $lParam)
If $hWnd = $hPreviewGui Then
_GDIPlus_GraphicsDrawImageRect($hPreviewGraphic, $hPreviewBitmap, ($iPreviewMaxDim - $iPreviewWidth) / 2, ($iPreviewMaxDim - $iPreviewHeight) / 2, $iPreviewWidth, $iPreviewHeight)
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_PAINT

[/autoit] [autoit][/autoit] [autoit]

Func _shoot()
$datei2 = @TempDir & "\" & "test2.jpg"
_ScreenCapture_Capture($datei2, 400, 400, 500, 500)
_PreviewLoadImage($datei2)
EndFunc ;==>_shoot

[/autoit]

**Oscar**

Bei einem 64Bit-Windows stehen die 32Bit-Programme in einem etwas anderen Registry-Pfad. Ich habe mal schnell eine Funktion geschrieben, die alle Programme ausliest:

Spoiler anzeigen

[autoit]

#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

$array = _GetSoftwareList()
_ArrayDisplay($array)

[/autoit] [autoit][/autoit] [autoit]

Func _GetSoftwareList()
Local $sSoftwareList, $iInstance = 0, $sKey, $sName
Local $sRegKey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'
Local $sRegKey32 = 'HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall'
Do
$iInstance += 1
$sKey = RegEnumKey($sRegKey, $iInstance)
If @error Then ExitLoop
$sName = RegRead($sRegKey & '\' & $sKey, 'DisplayName')
If $sName <> '' Then $sSoftwareList &= $sName & @CRLF
Until $sKey = ''
$iInstance = 0
Do
$iInstance += 1
$sKey = RegEnumKey($sRegKey32, $iInstance)
If @error Then ExitLoop
$sName = RegRead($sRegKey32 & '\' & $sKey, 'DisplayName')
If $sName <> '' Then $sSoftwareList &= $sName & @CRLF
Until $sKey = ''
If $sSoftwareList = '' Then Return SetError(1, 0, '')
Return StringSplit(StringTrimRight($sSoftwareList, 1), @CRLF, 1)
EndFunc

[/autoit]

**Oscar**

Beispiel:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
$hGui = GUICreate('Test', 200, 80)
$hButton = GUICtrlCreateButton('An', 10, 10, 100, 25)
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hButton
Switch GUICtrlRead($hButton)
Case 'An'
GUICtrlSetData($hButton, 'Aus')
; hier können weitere Befehle folgen
Case 'Aus'
GUICtrlSetData($hButton, 'An')
; hier können weitere Befehle folgen
EndSwitch
EndSwitch
WEnd

[/autoit]

**Oscar**

Ich möchte nur ungern fremde Listen verwenden. Zum einen, weil ich nicht weiss, wie es da mit dem Copyright aussieht, zum anderen aber auch, weil ich nicht weiss, ob die Wörter dort richtig geschrieben sind. Das betrifft vor allem auch die Umlaute (äöüß). Von daher bleibe ich lieber bei meiner selbst erstellten Liste.

Falls es ansonsten zu Fehlern kommen sollte, bitte melden!

**Oscar**

Es gibt (nach langer Zeit) mal wieder ein Update von dem Spiel. Alles weitere im Post #1.

**Oscar**

Du kannst auch mit IsArray prüfen:

Spoiler anzeigen

[autoit]

$sSource = 'Eva"aaa"'
$sSource = 'bla'
$Suche = StringRegExp($sSource,'Eva"(.+?)"',3)
If IsArray($Suche) Then
MsgBox(0, 'Test', 'gefunden')
Else
MsgBox(0, 'Test', 'nichts gefunden')
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit]

**Oscar**

Mir ist gerade aufgefallen, dass ich die Version 1.2 noch gar nicht gepostet hatte.
Dort gibt es 8 verschiedene Kartensets. Kann mich gar nicht mehr erinnern, ob ich noch was anderes geändert hatte. Naja, jedenfalls funktioniert die 1.2er Version auch mit der aktuellen AutoIt-Version.

**Oscar**

Du willst die Größe (in Pixel) von GUI-Elementen herausbekommen?
Dann hilft Dir vielleicht mein Bildschirm-Lineal (mm/cm)

**Oscar**

Die Wait-Funktionen warten auf das Ereignis, das geht so nicht.
Benutze stattdessen WinActive oderverknüpft in einer Schleife (Do...Until).

**Oscar**

Dazu musst Du nur die Funktion "_StartSearch" direkt nach dem eintragen des Pfades aufrufen:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('GUIOnEventMode', 1)

[/autoit] [autoit][/autoit] [autoit]

$hGui = GUICreate('Txt-Copy', 800, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, '_CloseGui')
GUICtrlCreateLabel('Suchpfad', 10, 12, 60, 20)
$hSearchPath = GUICtrlCreateInput('', 70, 10, 680, 20, BitOR($ES_LEFT, $ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFFBB)
$hSelectSearch = GUICtrlCreateButton('...', 752, 9, 30, 22)
GUICtrlSetOnEvent(-1, '_SelectPath')
$hStartSearch = GUICtrlCreateButton('Suche starten...', 120, 40, 120, 25)
GUICtrlSetOnEvent(-1, '_StartSearch')
$hFilelist = GUICtrlCreateListView('Dateiname', 10, 80, 780, 400, $LVS_SHOWSELALWAYS)
GUICtrlCreateLabel('Zielpfad', 10, 512, 60, 20)
$hTargetPath = GUICtrlCreateInput('', 70, 510, 680, 20, BitOR($ES_LEFT, $ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xAAFFAA)
$hSelectTarget = GUICtrlCreateButton('...', 752, 509, 30, 22)
GUICtrlSetOnEvent(-1, '_SelectPath')
$hStartCopy = GUICtrlCreateButton('Kopieren starten...', 120, 540, 120, 25)
GUICtrlSetOnEvent(-1, '_StartCopy')
GUISetState()
WinWaitClose($hGui)
Exit

[/autoit] [autoit][/autoit] [autoit]

Func _CloseGui()
GUIDelete($hGui)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SelectPath()
Local $sPath
$sPath = FileSelectFolder('Ordner auswählen', '', 2, '', $hGui)
If Not FileExists($sPath) Then Return
Switch @GUI_CtrlId
Case $hSelectSearch
GUICtrlSetData($hSearchPath, $sPath)
_StartSearch()
Case $hSelectTarget
GUICtrlSetData($hTargetPath, $sPath)
EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _StartSearch()
Local $aFilelist, $sPath = GUICtrlRead($hSearchPath)
If $sPath = '' Then Return MsgBox(16, 'Fehler', 'Bitte erst einen Suchpfad auswählen!', 0, $hGui)
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$aFilelist = _FileListToArray($sPath, '*.txt', 1)
If @error Then Return
For $i = 1 To $aFilelist[0]
GUICtrlCreateListViewItem($sPath & $aFilelist[$i], $hFilelist)
Next
_GUICtrlListView_SetColumnWidth(GUICtrlGetHandle($hFilelist), 0, $LVSCW_AUTOSIZE)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _StartCopy()
Local $aSelectedItems, $sPath = GUICtrlRead($hTargetPath)
If $sPath = '' Then Return MsgBox(16, 'Fehler', 'Bitte erst einen Zielpfad auswählen!', 0, $hGui)
$aSelectedItems = _GUICtrlListView_GetSelectedIndices($hFilelist, True)
If $aSelectedItems[0] = 0 Then Return MsgBox(16, 'Fehler', 'Bitte erst die Dateien markieren!', 0, $hGui)
For $i = 1 To $aSelectedItems[0]
ConsoleWrite('Copy "' & _GUICtrlListView_GetItemTextString($hFilelist, $aSelectedItems[$i]) & '" -> "' & $sPath & '"' & @CR)
FileCopy(_GUICtrlListView_GetItemTextString($hFilelist, $aSelectedItems[$i]), $sPath, 0)
Next
EndFunc

[/autoit]

**Oscar**

Ich hatte gerade Langeweile:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('GUIOnEventMode', 1)

[/autoit] [autoit][/autoit] [autoit]

$hGui = GUICreate('Txt-Copy', 800, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, '_CloseGui')
GUICtrlCreateLabel('Suchpfad', 10, 12, 60, 20)
$hSearchPath = GUICtrlCreateInput('', 70, 10, 680, 20, BitOR($ES_LEFT, $ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFFBB)
$hSelectSearch = GUICtrlCreateButton('...', 752, 9, 30, 22)
GUICtrlSetOnEvent(-1, '_SelectPath')
$hStartSearch = GUICtrlCreateButton('Suche starten...', 120, 40, 120, 25)
GUICtrlSetOnEvent(-1, '_StartSearch')
$hFilelist = GUICtrlCreateListView('Dateiname', 10, 80, 780, 400, $LVS_SHOWSELALWAYS)
GUICtrlCreateLabel('Zielpfad', 10, 512, 60, 20)
$hTargetPath = GUICtrlCreateInput('', 70, 510, 680, 20, BitOR($ES_LEFT, $ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xAAFFAA)
$hSelectTarget = GUICtrlCreateButton('...', 752, 509, 30, 22)
GUICtrlSetOnEvent(-1, '_SelectPath')
$hStartCopy = GUICtrlCreateButton('Kopieren starten...', 120, 540, 120, 25)
GUICtrlSetOnEvent(-1, '_StartCopy')
GUISetState()
WinWaitClose($hGui)
Exit

[/autoit] [autoit][/autoit] [autoit]

Func _CloseGui()
GUIDelete($hGui)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SelectPath()
Local $sPath
$sPath = FileSelectFolder('Ordner auswählen', '', 2, '', $hGui)
If Not FileExists($sPath) Then Return
Switch @GUI_CtrlId
Case $hSelectSearch
GUICtrlSetData($hSearchPath, $sPath)
Case $hSelectTarget
GUICtrlSetData($hTargetPath, $sPath)
EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _StartSearch()
Local $aFilelist, $sPath = GUICtrlRead($hSearchPath)
If $sPath = '' Then Return MsgBox(16, 'Fehler', 'Bitte erst einen Suchpfad auswählen!', 0, $hGui)
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$aFilelist = _FileListToArray($sPath, '*.txt', 1)
If @error Then Return
For $i = 1 To $aFilelist[0]
GUICtrlCreateListViewItem($sPath & $aFilelist[$i], $hFilelist)
Next
_GUICtrlListView_SetColumnWidth(GUICtrlGetHandle($hFilelist), 0, $LVSCW_AUTOSIZE)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _StartCopy()
Local $aSelectedItems, $sPath = GUICtrlRead($hTargetPath)
If $sPath = '' Then Return MsgBox(16, 'Fehler', 'Bitte erst einen Zielpfad auswählen!', 0, $hGui)
$aSelectedItems = _GUICtrlListView_GetSelectedIndices($hFilelist, True)
If $aSelectedItems[0] = 0 Then Return MsgBox(16, 'Fehler', 'Bitte erst die Dateien markieren!', 0, $hGui)
For $i = 1 To $aSelectedItems[0]
ConsoleWrite('Copy "' & _GUICtrlListView_GetItemTextString($hFilelist, $aSelectedItems[$i]) & '" -> "' & $sPath & '"' & @CR)
FileCopy(_GUICtrlListView_GetItemTextString($hFilelist, $aSelectedItems[$i]), $sPath, 0)
Next
EndFunc

[/autoit]

**Oscar**

Vielleicht meinst Du ja auch sowas: FileCommander

**Oscar**

Dazu kannst Du ContinueLoop benutzen:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 413, 305, 304, 188)
$Button1 = GUICtrlCreateButton("Go", 112, 256, 75, 25)
$Group1 = GUICtrlCreateGroup("Fall1", 64, 56, 185, 81)
$Radio1 = GUICtrlCreateRadio("Test1", 88, 80, 113, 17)
$Radio2 = GUICtrlCreateRadio("Test2", 88, 104, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Fall2", 72, 168, 185, 73)
$Radio3 = GUICtrlCreateRadio("Test1", 96, 192, 113, 17)
$Radio4 = GUICtrlCreateRadio("Test2", 96, 216, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("Cancel", 232, 256, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Radio1) = "4" And GUICtrlRead($Radio2) = "4" Then
MsgBox(8192 + 64, "Attention", "kein Fall 1 ausgewählt", 10)
ContinueLoop
EndIf
If GUICtrlRead($Radio3) = "4" And GUICtrlRead($Radio4) = "4" Then
MsgBox(8192 + 64, "Attention", "kein Fall 2 ausgewählt", 10)
ContinueLoop
EndIf
MsgBox(4096, "Test", "Alle Bedingungen erfüllt")

[/autoit] [autoit][/autoit] [autoit]

Case $Button2
Exit
EndSwitch
WEnd

[/autoit]

**Oscar**

Im OnEventMode hättest Du diese Möglichkeit:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
Opt('GUIOnEventMode', 1)
$hGui = GUICreate('Test', 800, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Close')
$hRadioGroup1 = GUICtrlCreateDummy()
For $i = 0 To 4
GUICtrlCreateRadio('Radio' & $i + 1, 10, 10 + $i * 20, 60, 20)
GUICtrlSetOnEvent(-1, '_RadioFunc1')
Next
$hRadioGroup2 = GUICtrlCreateDummy()
For $i = 0 To 4
GUICtrlCreateRadio('Radio' & $i + 1, 100, 10 + $i * 20, 60, 20)
GUICtrlSetOnEvent(-1, '_RadioFunc2')
Next
GUISetState()
WinWaitClose($hGui)

[/autoit] [autoit][/autoit] [autoit]

Func _Close()
GUIDelete($hGui)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _RadioFunc1()
MsgBox(0,'Group1', 'Radio' & @GUI_CtrlId - $hRadioGroup1)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _RadioFunc2()
MsgBox(0,'Group2', 'Radio' & @GUI_CtrlId - $hRadioGroup2)
EndFunc

[/autoit]

**Oscar**

[verschoben]

**Oscar**

An mein allererstes Skript kann ich mich nicht erinnern, aber das erste Skript, was ich hier ins Forum gepostet habe ist das hier: WiFaRi - Widerstandsfarbringe umwandeln in Widerstandswert

**Oscar**

Bitte benutze zusätzlich zum Spoiler den AutoIt-Tag, damit Dein Quelltext als AutoIt-Skript dargestellt wird!

Und dann erkläre mal, was bei Deinem Skript am Ende rauskommen soll. Diesen Kauderwelsch aus Deinem Skript kann ich nicht nachvollziehen.

**Oscar**

Kannst Du Deine Fragen etwas präziser beschreiben?
Meinst Du das so:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

$FileList = _FileListToArray(@DesktopDir)
Switch @error
Case 1
MsgBox(0, "", "Path not found.")
Exit
Case 4
MsgBox(0, "", "No Files found.")
Exit
EndSwitch
_ArrayDisplay($FileList, "$FileList")
If IsArray($FileList) Then
$sFileList = ""
For $i = 1 To UBound($FileList) - 1
$sFileList &= $FileList[$i] & @CRLF
Next
MsgBox(1, "Dateien", $sFileList)
EndIf

[/autoit]

**Oscar**

Wenn Du einen bestimmten Eintrag aus dem Array anzeigen lassen willst, musst Du dessen Index benutzen:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

$FileList = _FileListToArray(@DesktopDir)
If @error = 1 Then
MsgBox(0, "", "No Folders Found.")
Exit
EndIf
If @error = 4 Then
MsgBox(0, "", "No Files Found.")
Exit
EndIf
_ArrayDisplay($FileList, "$FileList")
If IsArray($FileList) Then
For $i = 1 To UBound($FileList) - 1
MsgBox(1, "Datei", $FileList[$i])
Next
EndIf

[/autoit]

**Oscar**

Von mir auch: Herzlichen Glückwunsch zum Geburtstag!

Beiträge von Oscar

Bildvorschau funktioniert nicht

Prüfen ob ein bestimmtes Programm installiert ist

Button caption bei Click ändern

Galgenraten-Spiel

Galgenraten-Spiel

@error If Frage

Pairs (Spiel für Kinder)

control size ermitteln in pixel

WinWaitActive() oderverknüpft?

dateilister mit GUICtrlCreateListView

dateilister mit GUICtrlCreateListView

dateilister mit GUICtrlCreateListView

mehrere Checkboxen abfragen

RadioButtons Gruppe auslesen

Zwei Programme nacheinander installieren.

Euer erstes Script

Auslöschen von Namen einer Datei

Auslöschen von Namen einer Datei

Auslöschen von Namen einer Datei

Herzlichen Glückwunsch TheShadowAE