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

Debugger: do not link in JwaTlHelp32 on Win9x platform (depends on compiler define).

Browse Source 
git-svn-id: trunk@47325 -
This commit is contained in:
bart 2015-01-09 11:33:13 +00:00
parent d38d2f788b
commit 9b9f9f9709
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/debugattachdialog.pas
View File

@ -52,20 +52,26 @@ implementation
{$ifdef windows} {$ifdef windows}
uses uses
Windows, Windows
JwaTlHelp32; {$ifndef WIN9XPLATFORM}
,JwaTlHelp32
{$endif};
// Enumerate running processes. // Enumerate running processes.
// Result must be always set: True if enumeration supported or False otherwise. // Result must be always set: True if enumeration supported or False otherwise.
// If AList is not nil it must be filled with TRunningProcessInfo items. // If AList is not nil it must be filled with TRunningProcessInfo items.
function EnumerateProcesses(AList: TRunningProcessInfoList): boolean; function EnumerateProcesses(AList: TRunningProcessInfoList): boolean;
{$ifndef WIN9XPLATFORM}
var var
hShot: HANDLE; hShot: HANDLE;
pe: tagPROCESSENTRY32W; pe: tagPROCESSENTRY32W;
item: TRunningProcessInfo; item: TRunningProcessInfo;
{$endif}
begin begin
{$ifdef WIN9XPLATFORM}
Result := False;
{$else}
Result := True; // we can enumerate processes Result := True; // we can enumerate processes
if not Assigned(AList) then if not Assigned(AList) then
Exit; Exit;
@ -84,6 +90,7 @@ begin
finally finally
CloseHandle(hShot); CloseHandle(hShot);
end; end;
{$endif}
end; end;
{$else} {$else}
{$ifdef linux} {$ifdef linux}