[Lazarus] helphtml example

[Mattias Gaertner]

On Thu, 18 Mar 2010 11:57:14 +0100
Andrea Mauri <andrea.mauri.75 at gmail.com> wrote:

> Il 16/03/2010 20.38, Mattias Gaertner ha scritto:
> > It uses the function FindDefaultBrowser in unit lcl/lclintf.pas.
> 
> I checked FindDefaultBrowserFunction.
> I have this problem on win32 (xp).
> 
> 
> function FindDefaultBrowser(out ABrowser, AParams: String): Boolean;
> 
>    function Find(const ShortFilename: String; out ABrowser: String): 
> Boolean; inline;
>    begin
>      ABrowser := SearchFileInPath(ShortFilename + GetExeExt, '',
>                        GetEnvironmentVariableUTF8('PATH'), PathSeparator,
>                        [sffDontSearchInBasePath]);
>      Result := ABrowser <> '';
>    end;
> 
> begin
>    {$IFDEF MSWindows}
>    Find('rundll32', ABrowser);               <-- this function does not 
> find the browser
> 
> The find function looks in PATH, on my pc I have rundll32.exe in 
> windows\system32 but PATH environment variable does not include 
> c:\windows\system32, so find function does not find rundll32

Any windows user out there who knows how to find the right rundll on
all windows platforms?

Mattias