L2PacketHack 3.5.x

[alexteam]

э...
обьясни мне...
какой смысл было править с

procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
  isLSP.Enabled := not ChkLSPIntercept.Checked;
  BtnLsp.Enabled := not ChkLSPIntercept.Checked;
  if ChkLSPIntercept.Checked then
  begin
    ChkSocks5.Checked := false;
    ChkIntercept.Checked := false;
  end;
  dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;

на

procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
  if ChkLSPIntercept.Checked then
  begin
    isLSP.Enabled := false;
    BtnLsp.Enabled := false;
    ChkSocks5.Checked := false;
    ChkIntercept.Checked := false;
  end else
  begin
    isLSP.Enabled := true;
    BtnLsp.Enabled := true;
  end;
  dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;

Добавлено через 1 минуту
порадовало:

if ChkLSPIntercept.Checked then
    dmData.LSPControl.setlspstate(not ChkLSPIntercept.Checked);

[NLObP]

alexteam, по поводу выгрузки. Мне не понравилось, что в то время когда не нужен пакетхак, библиотека перехвата все равно установлена.

PS: Напаролся на косяк. Не знаю почему пакетхак стал писать, что у меня нет прав на правку реестра. Галочку LSP снять нельзя. Долго не мог понять почему, пока не глянул в лог. Полази в реестре и потер все вхождения path=lspprovider.dll. После этого пакетхак перестал ругаться на невозможность редактирования реестра и дал возможность снять/поставить галочку LSP. Может быть это из-за того, что библиотека устанавливалась из одной папки, а я хотел выгрузить из другой? (У меня много версий ПХ и все в разных папках.)

Добавлено через 23 минуты

Сообщение от alexteam

э...
обьясни мне...
какой смысл было править

Наверное не было. Тогда и здесь надо для однообразия исправить на это

procedure TfSettings.iInjectClick(Sender: TObject);
begin
  if iInject.Checked then
    if not LoadLibraryInject (isInject.Text) then iInject.Checked := false
  else
  begin
    ChkIntercept.Checked := false;
    FreeMem(pInjectDll);
    pInjectDll := nil;
    AddToLog(format(rsUnLoadDllSuccessfully,[isInject.Text]));
  end;
  isInject.Enabled := not iInject.Checked;
  BtnInject.Enabled := not iInject.Checked;
  HookMethod.Enabled := iInject.Checked;
  ChkIntercept.Enabled := iInject.Checked;
  JvSpinEdit1.Enabled := iInject.Checked;

  if not InterfaceEnabled then exit;
  GenerateSettingsFromInterface;
end;