Zitat von
NormanNG:
Hi,
zuerst fällt auf:
Delphi-Quellcode:
hdll := LoadLibrary('IPHLPAPI.DLL');
if hdll <> 0 then
begin
@AdaptersAddresses := GetProcAddress(hdll, 'GetAdaptersAddresses');
if @AdaptersAddresses <> nil then
begin
error := AdaptersAddresses(AF_UNSPEC, 10, nil, nil, @buffer);
if error <> ERROR_BUFFER_OVERFLOW then
exit;
Hier ensteht ein MemoryLeak, weil das Freelibrary nicht aufgerufen wird...
Habe diese Stelle korrigiert.