2,496
社区成员
发帖
与我相关
我的任务
分享
procedure ShowLogin();stdcall;
begin
with Form1.qry1 do
begin
Close;
sql.Clear;
SQL.Add('select * from login');
Open;
end;
end;
procedure TForm1.show;
var
ID: THandle;
begin
CreateThread(nil, 0, @ShowLogin, nil, 0, ID);
end;
procedure TForm1.btn4Click(Sender: TObject);
begin
show;
end;
unit CheckConnetThread;
interface
uses
Classes, SysUtils,Windows,Forms,IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
IdIcmpClient,IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL,
IdTCPConnection, IdTCPClient, IdHTTP;
type
TCheckConnetThread = class(TThread)
private
{ Private declarations }
//私有变量
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean);
destructor Destroy;override;
end;
implementation
uses Unit_Public, FastMule_main, UnitOperation;
constructor TCheckConnetThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
FreeOnTerminate:=True;
end;
destructor TCheckConnetThread.Destroy;
begin
inherited Destroy;
end;
procedure TCheckConnetThread.Execute;
begin
with Form1.qry1 do
begin
Close;
sql.Clear;
SQL.Add('select * from login');
Open;
end;
end;
end.