Informatika és tudomány

Hogyan lehet lekerdezni az IP cimet Delphiben?
  • af27
    #180
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    type
    TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation
    procedure PortOut(Port:Word; Data:Byte); stdcall; external 'io.dll';
    function PortIn(Port:Word):byte; stdcall; external 'io.dll';

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    PortOut(378,255);
    end;

    end.


    és ha katt akkor reboot!