XProfan

Declare Bild&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"

ErrorProc

    Set("ErrorLevel", 1)
    Print "<----ErrorProc---->"
    Print %Error, %ErrNumber, %ErrLine, $ErrStr, $ErrFile
    Print "<----------------->"
    Set("ErrorLevel", 0)

EndProc

WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Set("ErrorLevel", 0)
Set("OnError", 1)
------- Hier ist der Fehler, die Bilddatei ist 0 Byte groß
Bild& = @Create("hPic",-1,"C:\WINDOWS\WELLEN.BMP")
----------------------------------------------------------
DrawPic Bild&,0,0;0
DeleteObject Bild&
waitinput
end

IfNot @FileSize("C:\WINNT\WELLEN.BMP") = 0

    .....

EndI

Declare bild&
WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Set("ErrorLevel", 0)
Set("OnError", 1)
------- Hier ist der Fehler, die Bilddatei ist 0 Byte groß

If FILEEXISTS("C:\WINDOWS\zapotek.BMP")

    Bild& = @Create("hPic",-1,"C:\WINDOWS\zapotek.BMP")
    ----------------------------------------------------------
    DrawPic Bild&,0,0;0
    DeleteObject Bild&

ENDIF

waitinput
end