unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, INIFiles, StdCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
INI : TINIFile;
begin
try
INI := TINIFile.Create('C:Documents and SettingsDomPulpitProgramy testoweplik.ini');
INI.WriteString('Strona Startowa','01' ,Edit1.Text);
finally
INI.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
INI : TINIFile;
c : String;
begin
try
c := INI.ReadString('Strona Startowa','01','');
WebBrowser1.Navigate(format('Strona Startowa "%s"',[c]));
finally
INI.Free;
end;
end;
end.
Dlaczego WebBrowser nie otwiera tej strony.Albo po 15 minutach dopiero
NIE wiem dlaczego ale ani w code ani tak nie ma znku "<font color="red"><font size="18">\\</span></span>"