System.Devices.pas
Delphi-Quellcode:
public type
TDeviceClass = (Unknown, Desktop, Phone, MediaPlayer, Tablet, Automotive, Industrial, Embedded, Watch, Glasses, Elf, Dwarf, Wizard);
Was'n daran so schlimm?
Auch unkommentiert, aber dennoch schön anzusehn.
Zitat von
Eurekalog 7:
Delphi-Quellcode:
procedure PanicModeOn;
begin
if _EmergencyMode then
Exit;
_EmergencyMode := True;
Exiting := True;
if IsDebugged then
DebugBreak;
OutputDebugString('PanicModeOn: FATAL PROBLEM');
if Assigned(_OnPanic) then
_OnPanic;
SetEurekaLogState(False);
if Assigned(_PauseAllThreads) then
_PauseAllThreads;
SetPanicMM;
NameThread(TPanicModeOnThreadName);
end;
Als Entwickler macht es Spaß, wenn man beim Debuggen dort ständig zum Anhalten gezwungen wird.