Zdravím.
var
Form1: TForm1;
thh: THandle;
implementation
{$R *.lfm}
{ TForm1 }
Function OtevriThread(Param: Pointer): Longint;
begin
beep;
EndThread (thh);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
thid: Cardinal;
begin
thh:=BeginThread(nil,0,@OtevriThread,nil,0,thid...
Založil Borisek; 11 názorů, poslední 13. 6. 2018 – nevyřešeno
Založil Borisek; 11 názorů, poslední 13. 6. 2018 – nevyřešeno