Reagieren auf externe Exceptions

[silentAMD]

Hallo,
ich habe bei meinem dateimanager eine laufwerksliste angelegt. wenn ich auf einen eintrag/laufwerk klicke, indem KEIN datenträger liegt, habe ich die windows-meldung ausgeschalten und eine eigene meldung eingebunden. ich möchte aber die original windows meldung, auf die mein programm reagiert und je nach eingabe TRUE oder FALSE zurückgibt.

Delphi-Quellcode:

function TFenster.DriveOnline(b: Byte; drv: Char): Boolean;
var rec: TSearchRec; OldErrorMode: Cardinal;
begin
OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if FindFirst(drv+':\*.*', faAnyFile, rec)=21 then
begin
if (b=1) and (mHDD.Visible) then begin
Application.MessageBox(PChar('Der Datenträger in '+drv+' ist nicht mehr vorhanden. Laufwerk '+Menu.Items[1].Items[cDef].Caption[2]+' wird aktiviert.'),PChar(a),16);
c := Menu.Items[1].Items[cDef].Caption[2];
Menu.Items[1].Items[cDef].Checked := True;
A5.Click;
end
else if (b=0) then Application.MessageBox('Kein Datenträger eingelegt.',PChar(a),16);
Result := False;
end
else Result := True;
finally
FindClose(rec);
SetErrorMode(OldErrorMode);
end;
end;

please help

[trifid]

Hallo,

Code:

   sError := SysErrorMessage(GetLastError);