- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
procedure TForm1.PauseButtonClick(Sender: TObject);
var
I: Integer;
begin
if PauseButton.Caption = 'Пауза' then
begin
PauseButton.Caption := 'Продолжить';
Timer1.Enabled := False;
SpeedLabel.Caption := '0';
Form1.TimeOutSpinEdit.Enabled := True;
if Form2.ProxySettingsCheckBox.Checked = True then
begin
Form1.ProxyButton.Enabled := True;
end
else
begin
Application.ProcessMessages();
end;
for I := 0 to Form1.ThreadSpinEdit.Value - 1 do
begin
SuspendThread(FThread[I].Handle);
end;
end
else
begin
if Form2.HTTPCheckBox.Checked = True then
FProxyType := 0;
if Form2.SOCKS4CheckBox.Checked = True then
FProxyType := 1;
if Form2.SOCKS5CheckBox.Checked = True then
FProxyType := 2;
PauseButton.Caption := 'Пауза';
Timer1.Enabled := True;
Form1.TimeOutSpinEdit.Enabled := False;
Form1.ProxyButton.Enabled := False;
for I := 0 to Form1.ThreadSpinEdit.Value - 1 do
begin
ResumeThread(FThread[I].Handle);
end;
end;
end;
Комментарии (0) RSS
Добавить комментарий