Форум программистов [Powered by Invision Power Board]

Код


unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; 

procedure incedit1; stdcall; 
procedure incedit2; stdcall; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Button6: TButton; 
    Button7: TButton; 
    Button2: TButton; 
    Button3: TButton; 
    Button5: TButton; 
    Button4: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button6Click(Sender: TObject); 
    procedure Button7Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Button5Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

var 
  th1, th2: cardinal; 
  h1, h2: integer; 

procedure incedit1; 
var 
  i: integer; 
begin 
  i := 0; 
  while true do 
  begin 
    form1.edit1.text := inttostr(i); 
    i := i + 1; 
  end; 
end; 

procedure incedit2; 
var 
  i: integer; 
begin 
  i := 0; 
  while true do 
  begin 
    form1.edit2.text := inttostr(i); 
    i := i + 1; 
  end; 
end; 
{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  h1 := beginthread(nil, 1024, @incedit1, nil, 0, th1); 
  h2 := beginthread(nil, 1024, @incedit2, nil, 0, th2); 
end; 

procedure TForm1.Button6Click(Sender: TObject); 
begin 
  terminatethread(h1, 0); 
end; 

procedure TForm1.Button7Click(Sender: TObject); 
begin 
  terminatethread(h2, 0); 
end; 

procedure TForm1.Button4Click(Sender: TObject); 
begin 
  resumethread(h1); 
end; 

procedure TForm1.Button5Click(Sender: TObject); 
begin 
  resumethread(h2); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  suspendthread(h1); 
end; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
  suspendthread(h2); 
end; 

end. 

--------------------------------------------------------------------------------

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; 

procedure printh(p: pointer); stdcall; 
type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure printh(p: pointer); 
begin 
  TForm1(p).caption := 'Hello from thread'; 
  ExitThread(0); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  h1: cardinal; 
begin 
  createthread(nil, 128, @printh, self, 0, h1); 
end; 

end.