[es] - Problem sa WebBrowser-om i ShellExecute

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com

+1 Profil

Problem sa WebBrowser-om i ShellExecute

^{11.01.2005. u 23:34 - pre 234 meseci}

Pozdrav svima.

Napravio sam u kodu neki izvestaj u HTML formatu i sad hocu da ga prikazem. Probao sam da napravim novu formu sa EmbeddedWB-om i da jednostavno navigate-ujem do napravljenog fajla. I to radi ok...samo kad se zatvori ta forma desi se nesto sto jos nisam video: glavna forma reaguje ok na pokrete misem (onMouseOver radi) ali ne mogu nigde da klikem...uopste ne registruje klikove misem ni na jednu kontrolu.
onda sam probao da sa shellexecute izvrsim html fajl i otvorim ga u IE...nece (vraca rezultat manji od 32). nece da izvrsi ni kad mu dam putanju do HTML fajla, ni kad izvrsim 'C:\Program Files...iexplore.exe "ime html fajla"' a nece ni kad dam SAMO putanju do iexplore.exe...sto bi moralo da radi..
a sa ostalim fajlovima shell execute radi OK.

Jel ima neko ideju sta da radim?
Hvala unapred,
Bane

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Problem sa WebBrowser-om i ShellExecute

^{11.01.2005. u 23:49 - pre 234 meseci}

Probaj da tu drugu formu svaki put kreiras i oslobadjas. Znaci, da se ne kreira na pocetku programa kao sve ostale nego da ti kasnije pises Forma.Create(Application) i posle Forma.Free. To bi trebalo da ti resi problem sa klikanjem ako je nesto do Delphi-a... a zbog cega ShellExecute neradi nemam pojma... ja sam probao kod mene sa Delphi 7 i WinXP + SP2 i radi bez problema. Probaj sa CreateProcess funkcijom da pokrenes iexplorer.

Play Store

Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com

+1 Profil

Re: Problem sa WebBrowser-om i ShellExecute

^{12.01.2005. u 01:19 - pre 234 meseci}

hehehe, palo mi je i to na pamet, i sredilo je problem.
ali onda ponekad kada se unistava forma mi puknu par exceptiona u EmbeddedWB unitu i jedan u CoolTrayIcon..ludo :)
za svaki slucaj, evo koda za shell execute, mozda gresim negde:

Code:

function TMainForm.ShellOpenFile(hWnd : HWND; AFileName, AParams, ADefaultDir : string; Explore: boolean = False): integer;
var Act: PChar;
begin
  if Explore then
    Act := 'explore'
  else
    Act := 'open';
  Result := ShellExecute(hWnd, Act, pChar(AFileName), pChar(AParams), pChar(ADefaultDir), SW_SHOWDEFAULT );
  if Result <= 32 then
     raise Exception.Create('Error executing file!');
end;

i poziv

ShellOpenFile(Application.Handle, ExtractFilePath(ParamStr(0)) + 'report.html', '', '')

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com

Odgovor na temu