Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Вниз

Открыть файл моим приложением   Найти похожие ветки 

 
Konstantin   (2005-01-03 07:02) [0]

Подскажите, плиз, как сделать так, чтоб в моём приложении, при запуске самого приложения, в TWebBrowser открывался определённый по умолчанию файл(типа StartPage), а при клике на *.htm *.html открывалось моё приложение с  *.htm *.html в TWebBrowser???


 
Adder ©   (2005-01-03 07:59) [1]

1)

procedure TForm1.FormCreate(Sender: TObject);
var
   FileName:string;
begin
   if ParamStr(1)<>"" then FileName:=ParamStr(1)
       else FileName:="startpage.html";
   with WebBrowser1 do
       Navigate("file:///"+Path+FileName);
end;

2) см.[HKEY_CLASSES_ROOT\htmlfile\shell\open\command]


 
Konstantin   (2005-01-03 23:02) [2]

Спсб, по пункту 1 попробую, а со вторым пробовал, пишет не найден файл(тот который открываю) и запускается моя прога со StartPage ((


 
Konstantin   (2005-01-04 00:00) [3]

Попробовал, работает, но выдаёт ошибку(не найден файл, проверьте правильность указания имени и пути......), хотя и открывает этот файл. Да, ещё, это я сделал в FormActivate, т.к. в FormCreate постоянно происходит загрузка StartPage.html и я вместо  with WebBrowser1 do
      Navigate("file:///"+Path+FileName);

сделал  with WebBrowser1 do
      Navigate("file:///"+FileName);

(ругался на неизвестный параметр Path) Может из-за него это ошибка, как пофиксить???



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.031 c
14-1104239846
syte_ser78
2004-12-28 16:17
2005.01.16
вопрос по treeview


8-1097251674
Delphi5.01
2004-10-08 20:07
2005.01.16
Resample Image: Bicubic, Bicubic Smoother, Bicubic Sharper, ...


6-1098668733
Dvm_Home
2004-10-25 05:45
2005.01.16
IdFTP


14-1103871379
Aleksander
2004-12-24 09:56
2005.01.16
База данных C++Builder (исходники)


4-1101633809
DelphiN!
2004-11-28 12:23
2005.01.16
Перезагрузить компьютер несмотря не на что





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский