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

begin

while command_ok = 0 do

begin

Application.ProcessMessages;

end;

wait(200);

end;

procedure TForm1.panele_false();

begin

panel_start.Visible := false;

panel_login.Visible := false;

panel_servo.Visible := false;

panel_settings.Visible := false;

panel_about.Visible := false;

end;

procedure TForm1.refresh_app();

var

INI : TINIFile;

DLL : THandle;

Decrypt : function (Password : string) : String;

begin

if PageControl1.ActivePageIndex = 4 then

begin

DLL := LoadLibrary('encryption.dll'); //loading file

INI :=

TINIFile.Create(ExtractFilePath(Application.ExeName) +

'setup.ini');

try

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

pointer to the procedure

if @Decrypt = nil then raise Exception.Create('Can’t

load Encryption.dll library!');

1 2 ... 88 89 90 91 92 93 94 95 96 97 98 ... 117 118

Sem comentários

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