X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/ed1d49cbe548d9fb26a50f1b2381b693c3c01790..968c333d05db5d5ecf3599f8e304c67e64f21159:/lcorelocalips.pas 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;