[delphizip] Re: Zipmaster
- From: Eric.Engler@xxxxxxxxxxxxxx
- To: delphizip@xxxxxxxxxxxxx
- Date: Tue, 29 Oct 2002 16:28:08 -0500
Sounds good to me.
Russell and Roger are doing the code changes now.
I forwarded this to the list.
Please use the list so everyone will see the messages.
You can join from more than 1 email address if you want
to post messages from more than 1 address.
Eric
-----Original Message-----
From: Alistair George [mailto:bigal@xxxxxxxxxx]
Sent: Tuesday, October 29, 2002 4:14 PM
To: Eric.Engler@xxxxxxxxxxxxxx
Subject: [delphizip] Zipmaster
Hello Eric,
Suggested code change:
procedure TZipMaster.Load_Zip_Dll;
var
fullpath: string;
begin
// This is new code that tries to locate the DLL before loading it.
// The user can specify a dir in the DLLDirectory property.
// The user's dir is our first choice, but we'll still try the
// standard Windows DLL dirs (Windows, Windows System, Current dir).
//Some users may make FDLLDirectory with, or without the appendbackslash
fullpath := '';
if FDLLDirectory <> '' then
if FileExists(FDLLDirectory + '\ZIPDLL.DLL') then
fullpath := FDLLDirectory + '\ZIPDLL.DLL'
else if FileExists(FDLLDirectory + 'ZIPDLL.DLL') then
fullpath := FDLLDirectory + 'ZIPDLL.DLL';
if fullpath = '' then
fullpath := 'ZIPDLL.DLL'; // Let Windows search the std dirs
and
procedure TZipMaster.Load_Unz_Dll;
var
fullpath: string;
begin
// This is new code that tries to locate the DLL before loading it.
// The user can specify a dir in the DLLDirectory property.
// The user's dir is our first choice, but we'll still try the
// standard Windows DLL dirs (Windows, Windows System, Current dir).
//Some users may make FDLLDirectory with, or without the appendbackslash
fullpath := '';
if FDLLDirectory <> '' then
if FileExists(FDLLDirectory + '\UNZDLL.DLL') then
fullpath := FDLLDirectory + '\UNZDLL.DLL'
else if FileExists(FDLLDirectory + 'UNZDLL.DLL') then
fullpath := FDLLDirectory + 'UNZDLL.DLL';
Other related posts:
