mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 11:40:35 +02:00
* fixed compilation of 2.7.1, this component used a function that has been deprecated since 2007
git-svn-id: trunk@37315 -
This commit is contained in:
parent
42eb73c8a5
commit
96616afa61
@ -148,7 +148,7 @@ begin
|
||||
ShellApi.ShellExecute(0, 'open', PChar(FileName), PChar(Parameters), nil, SW_SHOW);
|
||||
{$endif}
|
||||
{$ifdef unix}
|
||||
Shell(format('%s %s',[FileName, Parameters]));
|
||||
fpsystem(format('%s %s',[FileName, Parameters]));
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user