in D7 dürfte es auch nicht abstürzen
und so einfach verschlugt wird die
Exception nicht wirklich
{} ist in D2009 drin und gab's in D7 noch nicht
Delphi-Quellcode:
function ThreadProc(Thread: TThread): Integer;
var
FreeThread: Boolean;
begin
{}InternalCurrentThread := Thread;
{}if Thread.FSuspended then sem_wait(Thread.FCreateSuspendedSem);
try
if not Thread.Terminated then
try
Thread.Execute;
except
Thread.FFatalException := AcquireExceptionObject;
end;
finally
FreeThread := Thread.FFreeOnTerminate;
Result := Thread.FReturnValue;
Thread.DoTerminate;
Thread.FFinished := True;
SignalSyncEvent;
if FreeThread then Thread.Free;
EndThread(Result);
end;
end;