mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Access violation

Browse source
This commit is contained in:
Alexander Koblov 2009-12-16 14:51:44 +00:00
commit 915ac6e8cc
3 changed files with 2549 additions and 2551 deletions
Download patch file Download diff file Expand all files Collapse all files

5055
src/foptions.pas
View file

File diff suppressed because it is too large Load diff

1
src/newdesign/uvfsexecuteoperation.pas
View file

@ -71,6 +71,7 @@ begin
WfxModule:= TWfxModule.Create;
if WfxModule.LoadModule(sFileName) then
begin
WfxModule.VFSInit(0);
WfxModule.VFSConfigure(0);
WfxModule.UnloadModule;
end;

44
src/uwfxmodule.pas
View file

@ -148,11 +148,11 @@ type
procedure UnloadModule;
procedure VFSInit(Data: PtrInt);
procedure VFSDestroy;
function VFSCaps : TVFSCaps;
function VFSConfigure(Parent: THandle):Boolean;
function VFSMisc: PtrUInt;
function IsLoaded: Boolean;
end;
{ TWFXModuleList }
@ -412,12 +412,15 @@ end;
destructor TWFXModule.Destroy;
begin
//TODO:Remove this and use VFSDestroy
//------------------------------------------------------
if Assigned(FsContentPluginUnloading) then
FsContentPluginUnloading;
//------------------------------------------------------
UnloadModule;
if IsLoaded then
begin
//TODO:Remove this and use VFSDestroy
//------------------------------------------------------
if Assigned(FsContentPluginUnloading) then
FsContentPluginUnloading;
//------------------------------------------------------
UnloadModule;
end;
end;
function TWFXModule.LoadModule(const sName: String): Boolean;
@ -528,6 +531,7 @@ begin
FsContentGetSupportedFieldFlags := nil;
FsContentSetValue := nil;
FsContentGetDefaultView := nil;
FsContentPluginUnloading := nil;
{ Unicode }
FsInitW := nil;
FsFindFirstW := nil;
@ -592,22 +596,9 @@ end;
procedure TWFXModule.VFSDestroy;
begin
//TODO: need to invoke this func
if Assigned(FsContentPluginUnloading) then
FsContentPluginUnloading;
end;
function TWFXModule.VFSCaps: TVFSCaps;
begin
Result := [];
if Assigned(FsGetFile) then
Include(Result, VFS_CAPS_COPYOUT);
if Assigned(FsPutFile) then
Include(Result, VFS_CAPS_COPYIN);
if Assigned(FsDeleteFile) then
Include(Result, VFS_CAPS_DELETE);
if Assigned(FsMkDir) then
Include(Result, VFS_CAPS_MKDIR);
//TODO: need to invoke this func
if Assigned(FsContentPluginUnloading) then
FsContentPluginUnloading;
end;
function TWFXModule.VFSConfigure(Parent: THandle): Boolean;
@ -638,6 +629,11 @@ begin
Result:=0;
end;
function TWFXModule.IsLoaded: Boolean;
begin
Result := (FModuleHandle <> 0);
end;
{ TWFXModuleList }
function TWFXModuleList.GetAEnabled(Index: Integer): Boolean;