D-Link DSL-G684T Manual do Utilizador descarregar pdf (Página 107)

107

INI.WriteString('Main','optpswd',Encrypt(edit21.Text));

end;

finally

INI.Free;

end;

wait(500);

refresh_advanced();

if application.MessageBox('Are you sure to save

changes? Please check advanced settings for errors before

coninue','?', MB_YESNO) = Id_Yes then

IdTelnet1.IOHandler.Writeln('save');

end;

2: ;

3: ;

begin

if edit18.Text = edit19.Text then

begin

DLL := LoadLibrary('encryption.dll');

INI :=

TINIFile.Create(ExtractFilePath(Application.ExeName)+'setup.i

ni');

try

@Encrypt := GetProcAddress(DLL, 'Encrypt'); //

pointer to the procedure

if @Encrypt = nil then raise

Exception.Create('Can’t load encryption.dll library!');

INI.WriteString('Main','login',Encrypt(edit13.Text));

INI.WriteString('Main','password',Encrypt(edit18.Text));

finally

INI.Free;

FreeLibrary(DLL);

end;

1 2 ... 102 103 104 105 106 107 108 109 110 111 112 ... 117 118

Sem comentários

D-Link DSL-G684T Manual do Utilizador Página 107