paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 05:09:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@45581 -
This commit is contained in:
mattias 2014-06-19 13:01:36 +00:00
parent ff2369aacf
commit 522643fce7
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
debugger/processdebugger.pp
View File

@ -38,8 +38,8 @@ unit ProcessDebugger;
interface interface
uses uses
Classes, SysUtils, FileUtil, UTF8Process, DbgIntfDebuggerBase, Process, Debugger, LCLProc, Classes, SysUtils, FileUtil, UTF8Process, LazFileUtils, DbgIntfDebuggerBase,
BaseDebugManager, Dialogs, ProcessList; Process, Debugger, LCLProc, BaseDebugManager, Dialogs, ProcessList;
type type
@ -107,7 +107,7 @@ begin
if FProcess <> nil if FProcess <> nil
then begin then begin
MessageDlg('Debugger', Format('There is already a process running: %s', [FProcess.CommandLine]), mtError, [mbOK], 0); MessageDlg('Debugger', Format('There is already a process running: %s', [FProcess.{%H-}CommandLine]), mtError, [mbOK], 0);
Result := False; Result := False;
Exit; Exit;
end; end;
@ -118,7 +118,8 @@ begin
TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed; TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed;
GetDefaultProcessList.Add(FProcess); GetDefaultProcessList.Add(FProcess);
FProcess.CommandLine := '"'+FileName + '" ' + Arguments; FProcess.Executable := FileName;
SplitCmdLineParams(Arguments,FProcess.Parameters);
FProcess.CurrentDirectory := WorkingDir; FProcess.CurrentDirectory := WorkingDir;
FProcess.Environment.Assign(Environment); FProcess.Environment.Assign(Environment);
if ShowConsole if ShowConsole