forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

check for other ddemangle name, close #165

This commit is contained in:
Basile Burg 2017-07-04 23:50:21 +02:00
parent 22a7ddefe7
commit 40d196533b
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_ddemangle.pas
View File

@ -43,6 +43,20 @@ begin
fList := TStringList.Create; fList := TStringList.Create;
fOut := TStringList.Create; fOut := TStringList.Create;
fProc := TCEProcess.create(nil); fProc := TCEProcess.create(nil);
fProc.Options:= [poUsePipes];
fProc.OnTerminate:=@procTerminate;
fProc.ShowWindow:= swoHIDE;
// Arch Linux users can have the tool setup w/o DMD
{$IFDEF POSIX}
fProc.Executable := exeFullName('dtools-ddemangle');
if fProc.Executable.fileExists then
begin
fProc.execute;
fActive := true;
exit;
end;
{$ENDIF}
// up to version 2.071 ddemangle cannot be daemon-ized // up to version 2.071 ddemangle cannot be daemon-ized
with TProcess.Create(nil) do with TProcess.Create(nil) do
@ -68,9 +82,6 @@ begin
fProc.Executable := exeFullName('ddemangle' + exeExt); fProc.Executable := exeFullName('ddemangle' + exeExt);
if (v >= 72) and fProc.Executable.fileExists then if (v >= 72) and fProc.Executable.fileExists then
begin begin
fProc.Options:= [poUsePipes];
fProc.OnTerminate:=@procTerminate;
fProc.ShowWindow:= swoHIDE;
fProc.execute; fProc.execute;
fActive := true; fActive := true;
end end