X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/250fdcdbf77f0296f31391eb3a8b87de195aad92..7839389a75b803b3f9e3c88a8f269c178497cdb2:/lcorelocalips.pas?ds=sidebyside diff --git a/lcorelocalips.pas b/lcorelocalips.pas index aafddf7..d275012 100644 --- a/lcorelocalips.pas +++ b/lcorelocalips.pas @@ -51,7 +51,7 @@ function getv6localips:tbiniplist; function getsystemdnsservers:tbiniplist; -{$ifdef win32} +{$ifdef mswindows} function gethostname:ansistring; {$endif} @@ -284,7 +284,7 @@ end; -{$ifdef win32} +{$ifdef mswindows} const MAX_HOSTNAME_LEN = 132; MAX_DOMAIN_NAME_LEN = 132; @@ -350,7 +350,7 @@ end; function getsystemdnsservers:tbiniplist; var - {$ifdef win32} + {$ifdef mswindows} fixed_info : pfixed_info; currentdnsserver : pip_addr_string; {$else} @@ -364,7 +364,7 @@ begin result := biniplist_new; - {$ifdef win32} + {$ifdef mswindows} fixed_info := callgetnetworkparams; if fixed_info = nil then exit; @@ -400,7 +400,7 @@ begin {$endif} end; -{$ifdef win32} +{$ifdef mswindows} function gethostname:ansistring; var fixed_info : pfixed_info;