Hogyan lehet lekerdezni az IP cimet Delphiben?
-
#174
egy példa progit találtam, bár ez borland pascalos:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Port: Word;
Data: Byte;
procedure PortOut (Port: Word; Data: Byte); stdcall; external 'C:\io\io.dll';
begin
{ TODO -oUser -cConsole Main : Insert code here }
Port:=888;
Data:=3;
PortOut (Port, Data);
writeln;
writeln;
Writeln (' Kimeneti adat a paralel porton = ',Data);
readln
end.