RE: [DUG]: Unit that references a dll that does not exist on a system

[Jason Coley]

To give more info, it's the ShGetSettings call that fails, in win95 and
sometimes in win98. I tried placing this call in a external dll and if
that dll does not load then it shouldn't continue with a certain block
of code.

But the dll always seems to load but when I call the function that is
external it fails and sends an error that cannot be trapped.

This is the function in my app

function GetMyShellSettings(var MySFS: ShellFlagState; dwMask:
Cardinal): Boolean;
var
  Handle: THandle;
  GetShellSettings: TGetShellSettings;
begin
  Result := False;
  Handle := LoadLibrary('alshwrap.DLL');
  if GetLastError <> null then
    if Handle <> null then
    begin
      @GetShellSettings := GetProcAddress(Handle, 'GetShellSettings');
      if GetLastError <> null then
        if Assigned(GetShellSettings) then
        begin
          Result := GetShellSettings(MySFS, dwMask);
        end;
      FreeLibrary(Handle);
    end;
end;

this is the dll

library alshwrap;

uses
  shlobj;

{$R *.res}

function GetShellSettings(var MySFS: ShellFlagState; dwMask: Cardinal):
Boolean; stdcall;

begin
  Result := False;
  try
        Result := SHGetSettings(MySFS, dwMask);
  except
  end;
end;

exports
        GetShellSettings;

begin
end.

-----Original Message-----
From: Jason Coley 
Sent: Wednesday, 16 July 2003 11:08 a.m.
To: Multiple recipients of list delphi
Subject: [DUG]: Unit that references a dll that does not exist on a
system

If I have a exe that uses ShlObj and I try to load it on a win95 system
that
does not have the Desktop update installed, then the exe won't load.

 

Is there any ideas on how I can get around this?

 

Jason


------------------------------------------------------------------------
---
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/