nicht der Fehler aber eine riesen Unschönheit:
Delphi-Quellcode:
try
ha_window := GetDC(h_window);
finally
ReleaseDC(h_window, ha_window);
end;
Du rufst also ReleaseDC für das Fenster auch auf wenn bei der Funktion die
Exception geworfen wird und somit die Werte unbestimmt sind.
So sollte es sein:
Delphi-Quellcode:
Ressource_anfordern();
try
//mit Ressource arbeiten
finally
Ressource_freigeben();
end;