الاخ abood100
اشكرك جزيل الشكر علي المساعدة
ولكن لايزال هنالك مشكلة لذلك اليك البرنامج بالكامل ارجو التدقيق ان كان هنالك خطأ بالبرمجة او بالترتيب
unit Unit1;
interface
uses
Windows, Messages, SysUtils, 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
{$R *.DFM}
procedure send(no:byte);
begin
ASM
mov al,11111111B
mov dx,378h
out dx,al
END;
end;
procedure TForm1.Button1Click(Sender: TObject);
var b:byte;
begin
b:=255;
send(b);
end;
end.
وبما انني لست متعمقاً بالدلفي بما فيه الكفاية فارجو ان تعلمني ان كان هنالك خطوات يجب علي تنفيذها غير ذلك مثلا برمجة ملف البرمجة module كما هو وارد في الردود السابقة هل يطبق عليه ماهو مطبق في البيسك
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
مع خالص الشكر والامتنان