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

debugger: add pid enumeration code for linux

Browse Source 
git-svn-id: trunk@43286 -
This commit is contained in:
paul 2013-10-19 15:53:15 +00:00
parent 499e77cc8b
commit d15212e123
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
debugger/debugattachdialog.pas
View File

@ -89,11 +89,59 @@ begin
end;
end;
{$else}
{$ifdef linux}
uses
LazUTF8Classes;
function EnumerateProcesses(AList: TRunningProcessInfoList): boolean;
function GetProcName(Pid: THandle): String;
var
S: TStream;
Sz: Integer;
begin
S := TFileStreamUTF8.Create('/proc/' + IntToStr(Pid) + '/cmdline', fmOpenRead or fmShareDenyNone);
try
SetLength(Result, 255);
Sz := S.Read(Result[1], 255);
SetLength(Result, Sz);
finally
S.Free;
end;
end;
var
Rec: TSearchRec;
ProcName: String;
Pid: THandle;
Code: Integer;
item: TRunningProcessInfo;
begin
Result := True;
if not Assigned(AList) then
Exit;
if FindFirstUTF8('/proc/*', faDirectory, Rec) = 0 then
begin
repeat
Val(Rec.Name, Pid, Code);
if (Code = 0) then
begin
ProcName := GetProcName(Pid);
item := TRunningProcessInfo.Create(Pid, ProcName);
AList.Add(item);
end;
until FindNextUTF8(Rec) <> 0;
end;
end;
{$else}
function EnumerateProcesses(AList: TRunningProcessInfoList): boolean;
begin
Result := False;
end;
{$endif}
{$endif}
{ TRunningProcessInfo }