- Gurulunk, WAZE?!
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Meggyi001: Anya, tudsz segíteni a matekban?....Nem érek rá kisfiam, majd segít a ChatGPT...
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
Hirdetés
Ú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
- Garanciális Gamer Számítógép, PC (GTX 1070 8GB, I7-7700, 16GB RAM, SDD) Beszámítás Posta ok (32)
- iPhone 11 128GB fekete, gyárilag független, újszerű karcmentes állapot, 87% akku, legjobb ár!
- iPhone 12 128GB FEHÉR, gyárilag független, újszerű karcmentes állapot, 94% akku, doboz, legjobb ár!
- iPhone 12 128GB fekete, gyárilag független, karcmentes kijelző szép állapot, 86% akku, legjobb ár!
- Félkonfig Asus z690, i7-12700k, 4x8gb 4400mhz, 1tb Ssd,
- 137 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- Epson Workforce DS-530II dokumentumszkenner
- Eladó Karcmentes Xiaomi Mi 14T Pro 12/512GB / 12 hó jótállással
- Eladó szép állapotban levő Samsung Galaxy A22 5G 4/128GB fekete / 12 hónap jótállás
- iPhone 12 mini 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3090, 100% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest