106
IdTelnet1.IOHandler.Writeln('set dns address
'+edit15.Text);
IdTelnet1.IOHandler.Writeln('set dns name
'+edit15.Text);
IdTelnet1.IOHandler.Writeln('set dns backup
'+edit16.Text);
end
else IdTelnet1.IOHandler.Writeln('set ip dhcp 1');
IdTelnet1.IOHandler.Writeln('set ip localport
'+edit5.Text);
IdTelnet1.IOHandler.Writeln('set wlan ext_antenna
'+inttostr(ComboBox2.ItemIndex));
IdTelnet1.IOHandler.Writeln('set wlan join
'+inttostr(ComboBox3.ItemIndex));
DLL := LoadLibrary('encryption.dll');
INI :=
TINIFile.Create(ExtractFilePath(Application.ExeName)+'setup.i
ni');
try
@Encrypt := GetProcAddress(DLL, 'Encrypt');
if @Encrypt = nil then raise
Exception.Create('Can’t load encryption.dll library!');
if ((Edit21.Text = '')or(Edit21.Text = '0')) then
begin
IdTelnet1.IOHandler.Writeln('$$$');
IdTelnet1.IOHandler.WriteLn('set opt password
0');
INI.WriteString('Main','optpswd','');
end
else
begin
IdTelnet1.IOHandler.Writeln('$$$');
IdTelnet1.IOHandler.WriteLn('set opt password
'+edit21.Text);
Comentários a estes Manuais