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

fix reg, shell ex under win, mess with cond comp

This commit is contained in:
Basile Burg 2017-03-05 11:43:57 +01:00
parent 9683f7c246
commit 0d1b02387d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_common.pas
View File

@ -899,7 +899,7 @@ function shellOpen(const fname: string; wait: boolean = true): boolean;
begin begin
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
result := ShellExecute(0, 'OPEN', PChar(fname), nil, nil, SW_SHOW) > 32; result := ShellExecute(0, 'OPEN', PChar(fname), nil, nil, SW_SHOW) > 32;
{$ENDIF} {$ELSE}
with TProcess.Create(nil) do with TProcess.Create(nil) do
try try
{$IFDEF LINUX} {$IFDEF LINUX}
@ -918,6 +918,7 @@ begin
result := true; result := true;
Free; Free;
end; end;
{$ENDIF}
end; end;
function exeInSysPath(fname: string): boolean; function exeInSysPath(fname: string): boolean;