- 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;
 Follow us!
 Follow us!
Если в опциях компилятора BooleanEval выставлено в false, код крашнется.
Этот код крашнется с любыми опциями, ибо автор предполагает разыменовывать CurrentPlugin тогда, когда в нём... нулевой указатель.