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

IDE: debugger: using TProcessUTF8

Browse Source 
git-svn-id: trunk@50602 -
This commit is contained in:
mattias 2015-12-04 16:05:44 +00:00
parent 86f68f351f
commit 4a1345e0f6
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/processdebugger.pp
View File

@ -115,11 +115,14 @@ begin
SetState(dsInit); SetState(dsInit);
FProcess := TDBGProcess.Create(nil); FProcess := TDBGProcess.Create(nil);
try try
ShowMessage('AAA1 FileName='+FileName);
TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed; TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed;
GetDefaultProcessList.Add(FProcess); GetDefaultProcessList.Add(FProcess);
FProcess.Executable := FileName; FProcess.Executable := FileName;
SplitCmdLineParams(Arguments,FProcess.Parameters); SplitCmdLineParams(Arguments,FProcess.Parameters);
ShowMessage('AAA2 Params='+FProcess.Parameters.Text);
ShowMessage('AAA3 WorkingDir='+WorkingDir);
FProcess.CurrentDirectory := WorkingDir; FProcess.CurrentDirectory := WorkingDir;
FProcess.Environment.Assign(Environment); FProcess.Environment.Assign(Environment);
if ShowConsole if ShowConsole

2
debugger/processlist.pas
View File

@ -34,7 +34,7 @@ type
zombies. } zombies. }
TProcessList = class TProcessList = class
private private
FItems: TList; // list of TProcess FItems: TList; // list of TProcessUTF8
FFreeing: Boolean; // set wehn freeing stopped processes FFreeing: Boolean; // set wehn freeing stopped processes
function GetCount: integer; function GetCount: integer;
function GetItems(Index: integer): TProcessUTF8; function GetItems(Index: integer): TProcessUTF8;