Hogyan lehet lekerdezni az IP cimet Delphiben?
-
Johnny d #253 bocs, nem írnak ide, de azért nem egy éves a téma...
miért nem akar semminek se beindulni a Delphi 7-esen
az io.dll?
pl:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure PortOut(Port : Word; Data : Byte); far; external 'io';
procedure TForm1.Button1Click(Sender: TObject);
begin
halt;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
var
port:word;
data:byte;
begin
port:=$378;
data:=$01;
PortOut(port,data);
end;
end.