Új hozzászólás Aktív témák

• #1478 csewe csendes tag P.H. #1476

  Új Válasz 2007-01-28 12:27:59 #1478

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1476 üzenetére

  kipróbáltam egérklikkre kellene kiküldenie egy bájtot majd bezárnia a progit de lefagy így néz ki
  
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  
  type
  TForm1 = class(TForm)
  procedure llllll(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  
  var
  Form1: TForm1;
  
  Data: byte;
  Moved: DWORD;
  hPort: THANDLE;
  implementation
  
  {$R *.DFM}
  
  procedure TForm1.llllll(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  
  data := 1 ;
  
  hport:=createfile('LPT1',
  (GENERIC_READ or GENERIC_WRITE),
  0,
  nil,
  OPEN_EXISTING,
  FILE_ATTRIBUTE_NORMAL,
  0);
  if hport <> INVALID_HANDLE_VALUE then begin
  writefile(hport,data,sizeof(data),moved,nil);
  closehandle(hport); end;
  close ;
  
  end;
  
  end.fusd át hátha russzulm használom a kódot amit írtál nekem
  köszi
  

Új hozzászólás Aktív témák