Mein Programm läuft unter Windows NT, 2000, XP und 2003 ohne Fehler, aber unter Win98 (VMWare) bekomme ich an unterschiedlichen Stellen (mal läufts, mal crashts) die folgende Meldung:

Zitat von Diese Anwendung wird aufgrund eines ungültigen Vorgangs geschlossen.
Wenden Sie sich an den Hersteller, falls das Problem weiterhin besteht.

:

MYPROG verursachte einen Fehler durch eine ungültige Seite
in Modul <Unbekannt> bei 0000:00000000.
Register:
EAX=00000000 CS=0000 EIP=00000000 EFLGS=00000000
EBX=00000000 SS=0000 ESP=00000000 EBP=00000000
ECX=00000000 DS=0000 ESI=00000000 FS=0000
EDX=00000000 ES=0000 EDI=00000000 GS=0000
Bytes bei CS:EIP:

Stapelwerte:

Danach hilft nur noch ein Reset ... Was mir Windows mit dieser Fehlermeldung sagen will, erschließt sich mir jedoch auch nicht

Ich habe on Create meines Form die WndProc meiner ProgressBar überschrieben:

zusammenfalten · markieren

Delphi-Quellcode:

    OldProgressWndProc := ProgressBar1.WindowProc;
ProgressBar1.WindowProc := ProgressWndProc;

...

procedure TMyProg.ProgressWndProc(var Msg: TMessage);
var
  dc: HDC;
  rect: TRect;
  myfont: Cardinal;
  Text: string;
begin
  OldProgressWndProc(Msg);
  if ((Msg.Msg = 1026) or (Msg.Msg = WM_PAINT)) and (Timer3.Enabled = False)
    then
    // Wenn die Progressbar neugezeichnet wurde,
    // und somit die Zahl weg ist: Prozentzahl neu draufpinseln
  begin
    if (ProgressBar1.Max = 0) or (ProgressBar1.Position = 0) then
      Text := '0%'
    else if ProgressBar1.Max = ProgressBar1.Position then
      Text := '100%'
    else
      Text := IntToStr(Trunc(100 / ProgressBar1.Max * ProgressBar1.Position))
        + '%';
    dc := GetWindowDC(Progressbar1.Handle);
    try
      rect := ProgressBar1.ClientRect;
      //InvalidateRect(Progressbar1.Handle, @rect, True);
      myfont := CreateFont(MyProg_Main.Font.Size {-11}, 0, 0, 0, 0, 0, 0, 0,
        ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
        DEFAULT_PITCH, PAnsiChar(MyProg_Main.Font.Name) {'Verdana'});
      if suiSkinEngine1.Active = True then
        SetBkMode(dc, TRANSPARENT);
      SetTextColor(dc, clBlack);
      SelectObject(dc, myfont);
      DrawText(dc, PChar(Text), length(Text), rect, DT_SINGLELINE or DT_VCENTER
        or DT_CENTER);
    finally
      DeleteObject(myfont);
      ReleaseDC(Progressbar1.Handle, dc);
    end;
  end;
end;

Wenn ich die WndProc nicht überschreibe, dann läuft das Programm ohne Probleme. Was kann bei dieser Funktion unter Win9x einen kompletten Systemabsturz verursachen

Such mal hier im Forum nach madschis madCollection und bau die ein. dann bekommst du eine wesentlich aussagekräftigere Fehlermeldung.

da fällt mir noch ein: Anstatt
OldProgressWndProc(Msg); eventuell mal die ursprüngliche mit
inherited(..); aufrufen.

Möglicherweise liegt das am Aufruf der OldWndProc.

Versuche es mal so:

NewProgressProc := CallWindowProc(OldProgressProc...

Zitat von Luckie:

da fällt mir noch ein: Anstatt
OldProgressWndProc(Msg); eventuell mal die ursprüngliche mit
inherited(..); aufrufen.

Geht doch nicht, weil er WindowProc ersetzt; und weil er die Klasse ProgressBar nicht erweitert hat.

Zitat von turboPASCAL:

Möglicherweise liegt das am Aufruf der OldWndProc.

Versuche es mal so:
NewProgressProc := CallWindowProc(OldProgressProc...

Nein, das würde nicht funktionieren. Das ist ja keine Windows-Fensterprozedur sondern eine TWndMethod.

Der Vorschlag mit madExcept ist gut, da siehst du genau, wo der Fehler auftritt.

[Nachtrag]

Was mir jetzt spontan auffällt ist, dass du nur ein SelectObject machst.
SelectObject(dc, myfont); Normalerweise macht man so etwas wieder rückgängig:

markieren

Delphi-Quellcode:

oldfont := SelectObject(dc, myfont);
DrawText(...);
SelectObject(dc, oldfont);

Außerdem: warum erzeugst du den Font selbst und holst ihn dir nicht einfach von deinem Hauptformular?
myfont := MyProg_Main.Font.Handle (dann aber natürlich das DeleteObject weglassen).

Zitat von Luckie:

Such mal hier im Forum nach madschis madCollection und bau die ein. dann bekommst du eine wesentlich aussagekräftigere Fehlermeldung.

Hm... Ich hab jetzt madExcept installiert, nur weiß ich nicht so recht wohin
Lt. Hilfe müste nun in derIDE irgendwo im Projektmenü (?) ein Eintrag sein, ist er aber nicht, auch unter Start->Programme ist nichts

Was hast du installiert, alles oder nur die Basics ?

Die Basics inkl. Madexcept...

Installier mal alles, notfalls ist da ja noch das uninstall... das sollte dann passen

ich kann dir nicht genau sagen welche(s) tool du instalieren musst damit es sich in das Menue instalieret

// edit

Instalieren must du:
madBasics
madDisAsm
madExcept

...dann bekommst du einen neuen Paletteneintrag [madshi] MadExceptionHandler und unter Menue -> Projekte -> madExcept Settings...

Zitat von turboPASCAL:

Instalieren must du:
madBasics
madDisAsm
madExcept

...dann bekommst du einen neuen Paletteneintrag [madshi] MadExceptionHandler und unter Menue -> Projekte -> madExcept Settings...

Genau die habe ich installiert, aber ich habe weder einen Paletteneintrag, noch einen Menüeintrag

dann installier doch mal alles...