> if fileexists(appath + lowercase(appath + 'spamdel.hlp')) then
This line is adding appath twice.
I've never needed to test for upper/lowercase before. I doubt Windows cares
what case the help files are in.
Ross.
----- Original Message -----
From: "Alistair George" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 16, 2004 5:25 PM
Subject: [DUG] Finding the helpfile
> Hi all.
> Once again this PIA problem has re-appeared. Even though the following
lines are
> in the application, the helpfile still does not reliably surface.
> By this, I mean the user presses F1 or clicks help and the app cant find
the
> helpfile. I have always had this problem on some computers with Delphi
<6. As
> well as the below, the Mainform helpfile is defined.
>
> Any ideas??
>
> Appath :=
IncludeTrailingBackSlash(ExtractFilePath(Application.EXEName));
> if fileexists(appath + uppercase('spamdel.hlp')) then
> application.HelpFile := uppercase(appath + 'spamdel.hlp')
> else if fileexists(appath + lowercase(appath + 'spamdel.hlp')) then
> application.HelpFile := appath + lowercase('spamdel.hlp');
>
> _______________________________________________
> Delphi mailing list
> [EMAIL PROTECTED]
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi
