paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 19:17:09 +01: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; end;
{$IFDEF MSWindows} {$IFDEF MSWindows}
{$linklib iphlpapi}
{$linklib psapi}
const const
ANY_SIZE = 1; ANY_SIZE = 1;
type type
@ -77,8 +75,8 @@ type
dwNumEntries: DWORD; dwNumEntries: DWORD;
table: array [0..ANY_SIZE - 1] of MIB_TCPROW2; table: array [0..ANY_SIZE - 1] of MIB_TCPROW2;
end; end;
function GetTcpTable2(pTcpTable: PMIB_TCPTABLE2; var pdwSize: DWORD; bOrder: BOOL): DWORD; stdcall; external name 'GetTcpTable2'; 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 name 'GetModuleFileNameExW'; function GetModuleFilenameExW(hndProcess: HANDLE; hndModule: HMODULE; lpFilename: LPWSTR; nSize: DWord): DWord; stdcall; external 'psapi' name 'GetModuleFileNameExW';
{$ENDIF} {$ENDIF}
function MaybeQuote(S : String) : String; function MaybeQuote(S : String) : String;