- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
if (CurrentPlugin=nil) and (CurrentPlugin.FileName<>'InfoRTF.dll') and (CurrentPLugin.FileName<>'Preview.dll') then begin
if not ServerStoped then begin
uPluginControl.StopSession();
end;
if ClientLoaded then begin
ClientLoaded:=false;
StartDemo();
end;
end;
Если в опциях компилятора BooleanEval выставлено в false, код крашнется.
Этот код крашнется с любыми опциями, ибо автор предполагает разыменовывать CurrentPlugin тогда, когда в нём... нулевой указатель.