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

simplewebservergui: use external instead of linklib

Browse Source
This commit is contained in:
mattias 2022-08-12 20:26:28 +02:00
parent f50c813229
commit d90aee4c2d
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/simplewebservergui/simplewebsrvutils.pas
View File

@ -56,8 +56,6 @@ type
end;
{$IFDEF MSWindows}
{$linklib iphlpapi}
{$linklib psapi}
const
ANY_SIZE = 1;
type
@ -77,8 +75,8 @@ type
dwNumEntries: DWORD;
table: array [0..ANY_SIZE - 1] of MIB_TCPROW2;
end;
function GetTcpTable2(pTcpTable: PMIB_TCPTABLE2; var pdwSize: DWORD; bOrder: BOOL): DWORD; stdcall; external name 'GetTcpTable2';
function GetModuleFilenameExW(hndProcess: HANDLE; hndModule: HMODULE; lpFilename: LPWSTR; nSize: DWord): DWord; stdcall; external name 'GetModuleFileNameExW';
function GetTcpTable2(pTcpTable: PMIB_TCPTABLE2; var pdwSize: DWORD; bOrder: BOOL): DWORD; stdcall; external 'iphlpapi' name 'GetTcpTable2';
function GetModuleFilenameExW(hndProcess: HANDLE; hndModule: HMODULE; lpFilename: LPWSTR; nSize: DWord): DWord; stdcall; external 'psapi' name 'GetModuleFileNameExW';
{$ENDIF}
function MaybeQuote(S : String) : String;