paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 15:57:56 +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
uses
Classes, SysUtils, FileUtil, UTF8Process, DbgIntfDebuggerBase, Process, Debugger, LCLProc,
BaseDebugManager, Dialogs, ProcessList;
Classes, SysUtils, FileUtil, UTF8Process, LazFileUtils, DbgIntfDebuggerBase,
Process, Debugger, LCLProc, BaseDebugManager, Dialogs, ProcessList;
type
@ -107,7 +107,7 @@ begin
if FProcess <> nil
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;
Exit;
end;
@ -118,7 +118,8 @@ begin
TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed;
GetDefaultProcessList.Add(FProcess);
FProcess.CommandLine := '"'+FileName + '" ' + Arguments;
FProcess.Executable := FileName;
SplitCmdLineParams(Arguments,FProcess.Parameters);
FProcess.CurrentDirectory := WorkingDir;
FProcess.Environment.Assign(Environment);
if ShowConsole