Fehlersuche - komm nicht weiter

**schwa226**

Hi,

ich habe ein Programm, dass StayOnTop ist.

Wenn nun der PC gesperrt ist bekomme ich nach ~30min diese Meldung:

Zitat:

Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Das Handle ist ungültig.
'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Systemressourcen erschöpft.'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Falscher Parameter.
'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EOutOfResources mit Meldung 'Falscher Parameter.
'. Prozess myApp.exe (1604)
Erste Gelegenheit für Exception bei $768442EB. Exception-Klasse EStackOverflow mit Meldung 'Stack-Überlauf'. Prozess xHTPC.exe (1604)

und der Cursor steht in Graphics:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure GDIError;

const

  BufSize = 256;

var

  ErrorCode: Integer;

{$IF DEFINED(CLR)}

  Buf: StringBuilder;

{$ELSE}

  Buf: array [Byte] of Char;

{$IFEND}

begin

{$IF DEFINED(CLR)}

  Buf := StringBuilder.Create(BufSize);

{$IFEND}

  ErrorCode := GetLastError;

  if (ErrorCode <> 0) and (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil,

    ErrorCode, LOCALE_USER_DEFAULT, Buf, BufSize, nil) <> 0) then

{$IF DEFINED(CLR)}

    raise EOutOfResources.Create(Buf.ToString)

{$ELSE}

    raise EOutOfResources.Create(Buf)

{$IFEND}

  else

    OutOfResources;

end;

raise EOutOfResources.Create(Buf)

Wie kann ich herausfinden wo es von meinem Programm aus einen Fehler gibt?
Denn mit Umschalt-F8 weiter gehe kommen noch mehr Meldungen in der Graphics.
Der Taskmanager sagt mir das dass Programm ~3MB RAM braucht.

Ich habe Bitmaps & TIcons in meinem Programm.
Das komische ist halt, dass dieser Fehler nur auftritt wenn der PC gesperrt ist!?

Fehlersuche - komm nicht weiter

Fehlersuche - komm nicht weiter

Forumregeln