win = CreateWindow("KTs HomePageBackgroundTool", 400, 200, 800, 500, Desktop(), 9)
title = CreateLabel("KTs HomePageBackgroundTool", 5, 5, ClientWidth(win) - 10, 35, win, 3)
SetGadgetFont title, LoadFont("Comic Sans MS", 30, 1, 0, 1)
current_bg_s = ReadDir("C:\Windows\System32\oobe\info\backgrounds\")
Repeat
	nf$ = NextFile$(current_bg_s)
	DebugLog nf$
Until nf$ = ""
current_bg = CreateBMP("C:\Windows\System32\oobe\info\backgrounds\backgroundDefault.jpg", 10, 50, 385, 217, win)
;If Not current_bg End


WaitEvent()













Function CreateBMP(path$, x, y, width, height, group, border = 0)
	Stop
	bmp = CreatePanel(x, y, width, height, group, border)
	SetPanelImage bmp, path$
	Return bmp
End Function

Function GetFileName$(file$, ext = True)
	txt$ = file$
	Repeat
		txt$ = Mid$(txt$, Instr(txt$, "\") + 1, -1)
	Until Instr(txt$, "\") = False
	If Not ext
		Repeat
			txt$ = Left$(txt$, Len(txt$) - 1)
		Until Instr(txt$, ".") = False
	EndIf
	Return txt$
End Function

current_bg = LoadImage("C:\Windows\System32\oobe\info\backgrounds\backgroundDefault.jpg")
;If Not current_bg End
DrawImage(current_bg, 0, 0)
WaitKey()

Wenn das Ganze unter Allgemein sollte, dann macht das bitte. Ich weiß es nicht.