Как запретить переход на определенный URL в Webbrowser?

[Marsel737]

Пепел Феникса, я знаю что во всех браузерах так открывается, и что это правильный URL, но мне нужно чтоб при переходе на сайт писался его URL, а не URL запроса

[russian-stalker]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if pos('mail.ru',webbrowser1.LocationName)<>0 then
begin
 webbrowser1.GoHome;
 showmessage('Нельзя');
end;
end;

[Marsel737]

russian-stalker, с тем вопросом я уже разобрался..

А как можно полностью зачистьть webbrowser?

[Пепел Феникса]

вроде

WB.Navigate('blank');

а по поводу параметров запроса, то их следует оставлять.

[Marsel737]

Всем доброго времени суток!!

Снова обращаюсь к вам за помощью... Меня интересует, есть ли какая нибудь функция, которая преобразует к примеру слово "ПрИвЕТ" в "привет", и если такой функции нет, то как бы её организовать????

И ещё, как бы сделать так чтобы программа каждый раз при запуске проверяла наличие текстовго файла и в случае его отсутствия создавала его и записывала в него построчно массив слов, к примеру 'привет', 'пока', 'как дела'.

Заранее благодарен за помощь

[russian-stalker]

function downcase(text:string):string;
var
 i:integer;
begin
 text:=ansiuppercase(text);
 for i:=1 to length(text) do
  if text[i] in ['A'..'Я'] then
   text[i]:=chr(ord(text[i])+32);
 result:=text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=downcase(edit1.text);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
a:array[1..3] of string;
f:textfile;
i:integer;
begin
a[1]:='Привет';
a[2]:='Пока';
a[3]:='Как дела';
if fileexists('C:\my.txt') then
exit;
assignfile(f,'C:\my.txt');
rewrite(f);
for i:=1 to 3 do
write(f,a[i],' ');
closefile(f);
end;

[Marsel737]

russian-stalker, спасибо за помощь, разобрался теперь всё пашет как нада

[Marsel737]

Профи, подскажите пожалуйста как бы мне это сделать, у меня есть chkShowMessage и мне нужно из ini файла считывать cheked он или нет.

я сделал себе процу:

procedure TfrmMyBrowser.IniFileRead(Sender: TObject);
begin
with IniFile do
begin
trueChek:= ReadInteger('Options','trueChek', TrueChek);
...

а потом в форм креэйт записал:
if trueChek=1 then chkShowMessage.Checked;

И в итоге не пашет, подскажите в чем проблема или посоветуйте как сделать по другому

И ещё, как хранить в ини файле развёнуто окно на весь экран или нет?

[russian-stalker]

Есть же ReadBool и WriteBool

[Marsel737]

Спасибо за помощь, я так и думал что есть такая функция, но я писал ReadBoolean, ну и естественно не прокатило.

Остаётся только вопрос как хранить развёрнуто ли окно на весь экран.

Кстати, ReadBool окрыляет...