delphi test

Delphi code posted by meandmyself
created at 25 Nov 08:51

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 program IPList;

 {$apptype console}

 uses
   SysUtils,
   Classes,

   JCLSysInfo;

 var
   stg :TStrings;

 begin
   stg := TStringList.Create;

   GetIpAddresses (stg);
   Writeln (stg.Text);

   Readln;
 end.
236 Bytes in 2 ms with coderay