[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