From 6bd8ad382a778ba04146a1b9e9302c44d23f8190 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 12 Sep 2006 17:58:22 +0000
Subject: [PATCH] use GetExeExt

git-svn-id: trunk@9871 -
---
 lcl/lazhelphtml.pas | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lcl/lazhelphtml.pas b/lcl/lazhelphtml.pas
index 6e9a54fcd0..7efb54f7c0 100644
--- a/lcl/lazhelphtml.pas
+++ b/lcl/lazhelphtml.pas
@@ -387,15 +387,9 @@ procedure THTMLBrowserHelpViewer.FindDefaultBrowser(var Browser,
 
   function Find(const ShortFilename: string): boolean;
   var
-    Ext: String;
     Filename: String;
   begin
-    {$IFDEF MSWindows}
-    Ext:='.exe';
-    {$ELSE}
-    Ext:='';
-    {$ENDIF}
-    Filename:=SearchFileInPath(ShortFilename+Ext,'',
+    Filename:=SearchFileInPath(ShortFilename+GetExeExt,'',
                       SysUtils.GetEnvironmentVariable('PATH'),PathSeparator,
                       [sffDontSearchInBasePath]);
     Result:=Filename<>'';