mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
parent
3947a065c1
commit
da547e7d0a
1 changed files with 3 additions and 3 deletions
|
|
@ -339,11 +339,11 @@ end;
|
|||
procedure TWlxModule.UnloadModule;
|
||||
begin
|
||||
{$IF NOT (DEFINED(LCLQT) or DEFINED(LCLQT5) or DEFINED(LCLQT6) or DEFINED(LCLGTK2) or DEFINED(LCLGTK3))}
|
||||
{$IF (not DEFINED(LINUX)) or ((FPC_VERSION > 2) or ((FPC_VERSION=2) and (FPC_RELEASE >= 5)))}
|
||||
if FModuleHandle <> 0 then
|
||||
begin
|
||||
FreeLibrary(FModuleHandle);
|
||||
{$ENDIF}
|
||||
FModuleHandle := 0;
|
||||
FModuleHandle := 0;
|
||||
end;
|
||||
{ Mandatory }
|
||||
ListLoad := nil;
|
||||
{ Optional }
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue