paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

chmmaker: using TProcessUTF8

Browse Source 
git-svn-id: trunk@50601 -
This commit is contained in:
mattias 2015-12-04 16:05:05 +00:00
parent 2af1f6a5f4
commit 86f68f351f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/chmmaker/unit1.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, types, chmsitemap, chmfilewriter,
Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, Menus, ExtCtrls, EditBtn,
LazFileUtils;
LazFileUtils, UTF8Process;
type
@ -245,7 +245,7 @@ procedure TCHMForm.CompileViewBtnClick(Sender: TObject);
var
LHelpName: String;
LHelpConn: TLHelpConnection;
Proc: TProcess;
Proc: TProcessUTF8;
ext: String;
begin
if ChmFileNameEdit.FileName = '' then
@ -267,7 +267,7 @@ begin
MessageDlg('lazbuild coul not be found.', mtError, [mbCancel], 0);
Exit;
end;
Proc := TProcess.Create(Self);
Proc := TProcessUTF8.Create(Self);
Proc.CommandLine := '../../../lazbuild ./lhelp.lpi';
SetCurrentDir('../../components/chmhelp/lhelp/');
Proc.Options := [poWaitOnExit];