Új hozzászólás Aktív témák
-
csewe
csendes tag
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
- SAMSUNG ODYSSEY G5 S27AG500 Gamer Monitor! 27"/IPS/2k/165hz/1ms/Freesync Premium-G-sync/HDR10
- Iphone 15 Pro Max - Blue Titanium/256GB/Független/Garancia
- iPad Air 4 64GB, Cellular eladó
- Samsung s21 5G 128gb 8gb
- Beszámítás! Asrock H310M i5 8600K 16GB DDR4 250GB SSD 1TB HDD RTX 3060 12GB ZALMAN S4 FSP 600W