[Lazarus] helphtml example

Vincent Snijders vsnijders at vodafonevast.nl
Thu Mar 18 19:13:29 CET 2010


Mattias Gaertner schreef:
> 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?

I don't know, but we could try something like 
AppendPathDelim(GetEnvironmentVariable('WinDir'))+'system32\rundll.exe' 
first.

Vincent




More information about the Lazarus mailing list