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

View File

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