Search options (Page 54 of 68)

var
    s:string;
    Web: TWebBrowser;


procedure BrowserShow ( Action: string);
var
    reg : TRegistry;
begin
    // https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
    reg:= TRegistry.Create;
    try
        reg.Access := KEY_ALL_ACCESS;
        reg.RootKey:= HKEY_CURRENT_USER;
        if reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True) then
        begin
            if not reg.ValueExists(ExtractFileName(Application.ExeName)) then
                reg.WriteInteger(ExtractFileName(Application.ExeName), 11000); // 10001 - IE10,  11000 - IE11  https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
        end;
        reg.CloseKey;
    finally
        reg.Free;
    end;

    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1.Panel1;
    Web.Align := alClient;
    Web.Width := Form1.Width;
    Web.Height := Form1.Height-50;
    Web.Silent := 1;
    web.Navigate(Action);
end;


begin
s:=InputBox('Введите пороль от сети','Пароль','');
if s='1' then BrowserShow ('http://www.google.ru') else
if s='2' then BrowserShow ('http://www.mail.ru');
end.

s:=InputBox('Введите пороль от сети','Пароль','');
if s='1' then BrowserShow ('http://www.google.ru') else
if s='2' then BrowserShow ('http://www.mail.ru');

procedure Form1_OnShow (Sender: TObject; Action: string);
  ini:TInifile;
begin
ini:= TIniFile.Create(ExtractFilePath (ParamStr (0))+'c:\\setting\db.ini');
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
  ini:TInifile;
  user: string;
begin
ini:= TIniFile.Create(ExtractFilePath (ParamStr (0)) +'usersetting\'+user +'.ini');
end;

form1.edit1:=ini.ReadString('секция', 'ключ', '(тут оставляем пустым)') 

if ini.ReadString('секция', 'ключ', '(тут оставляем пустым)')='значение с которым сравниваем'

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
  Form1.Button5.Click;
end;