Mam pytanie odnośnie poniższej procedury:
okno := FindWindow(nil, PChar(Brak strony do wyświetlenia - Microsoft Internet Explorer'));
CloseWindow(okno);
Moja przeglądarka nie chce się zamknąć :( nie wie ktoś dlaczego ?
Mam pytanie odnośnie poniższej procedury:
okno := FindWindow(nil, PChar(Brak strony do wyświetlenia - Microsoft Internet Explorer'));
CloseWindow(okno);
Moja przeglądarka nie chce się zamknąć :( nie wie ktoś dlaczego ?
Lepiej użyj:
PostMessage(Okno,WM_Close,0,0); [cygaro]
Mam pytanie odnośnie poniższej procedury:
okno := FindWindow(nil, PChar('Brak strony do wyświetlenia - Microsoft Internet Explorer'));
CloseWindow(okno);
Moja przeglądarka nie chce się zamknąć :( nie wie ktoś dlaczego ?
może caption sie niezgadza... albo niewiem:-/
próbowałem, i też nie chodzi :(
Dziwne bo testowałem na notatniku i paincie - i sie zamykało
Może zły tytuł podajesz. Sprawdź Skanerem Okien albo programem EnumWND.
Może rzeczywiście źle podałeś nazwę okna a jak nie to zrób tak:
function ZabijProces(ProcessId:Integer):Boolean;
var
Uchwyt:tHandle;
begin
Uchwyt:=OpenProcess(PROCESS_TERMINATE,bool(0),ProcessId);
if TerminateProcess(Uchwyt,0) then result:=true else result:=false;
CloseHandle(Uchwyt);
end;
var
proces:integer;
begin
GetWindowThreadProcessId(okno,@proces);
ZabijProces(proces);
end.
Rudy zabijesz cały proces IEXPLORE.EXE a jemu chodzi tylko o okno o tytule "blabla..."
ludziska - nie wiem czy tak - ale czy nikt z was nie zna winzgrozy ? przecież napis "Microsoft Internet Explorer" jest dodawany z rejestru - być może przez to nie możesz zamknąć okna - z drugiej strony caption na formie IE powinien być przechwytywany - patent jest taki spróbuj tak :
"Brak strony do wyświetlenia" + " " + "Microsoft Internet Explorer"
- pobiera prawdopodobnie z rejestru - tu ważna rada lepiej pobierz nazwę z rejestru bo można ją zmienić ( u mnie jest tak : "Brak strony do wyświetlenia - MovieDivX.prv.pl" bez żadnego Microsoft Internet Shit ) więc po przeróbce powinno być :
#include
String : napis_BS,napis_IE;
napis_IE =[tu open registry z nazwą standarsową Microsoft internet explorer lub inną];
napis_BS=[tu open registry (nie wiem czy istnieje jak nie to="Brak strony do wyświetlenia") z napisem "brak strony do wyświetlenia" lub ta nazwa jest pobierana z tagów brak ... z pliku res://mshtml.dll/blank.htm ];
(napis_BS + " " + napis_IE);
spróbuj też z : res://mshtml.dll/blank.htm
Mam pytanie odnośnie poniższej procedury:
okno := FindWindow(nil, PChar(Brak strony do wyświetlenia - Microsoft Internet Explorer'));
CloseWindow(okno);
Moja przeglądarka nie chce się zamknąć :( nie wie ktoś dlaczego ?
spróbuj tak
okno := FindWindow(PChar(Brak strony do wyświetlenia - Microsoft Internet Explorer'), nil);
Pochwalony!
Nie, Mr Squel... . Podałeś w FindWindow(PChar('... - Microsoft Internet Expolorer'), nil) jako parametr klasy nazwę, Caption okna. Kiedyś już też bawiłem się tym i nigdy nie mógł mi znaleźć dalego okna. Nie wiem, może te okna są ze sobą jakoś powiązane, i mają jeden Caption, którego nie znamy?? P:P trochę głupie ale FindWindow nie chce działać... :):):)