Klikam na link na formularzu i otwiera sie strona w domyślnej przeglądarce. Jak ją zminimalizować a za 5 sekund zamknąć?
Wstaw timer na forme. Enabled daj na flase, a interval na 5000 (5s)
Przy uruchamianiu:
Timer1.Enabled:= True;
ShellExecute(Handle, 'open', 'www.4programmers.net', nil, nil, sw_minimize);
W OnTimer Timerka:
var
Tekst : THandle;
begin
Tekst := FindWindow(nil, 'cus - Microsoft Internet Explorer'); // zmien cus
PostMessage(Tekst, WM_CLOSE, 0, 0 );
Timer1.Enabled:= False;
Do uses dodaj ShellAPI.
PS. Wirus? Trojan?
<font color="green">Wstaw timer na forme. Enabled daj na flase, a interval na 5000 (5s)
Przy uruchamianiu:
Timer1.Enabled:= True;
ShellExecute(Handle, 'open', 'www.4programmers.net', nil, nil, sw_minimize);
W OnTimer Timerka:
var
Tekst : THandle;
begin
Tekst := FindWindow(nil, 'cus - Microsoft Internet Explorer'); // zmien cus
PostMessage(Tekst, WM_CLOSE, 0, 0 );
Timer1.Enabled:= False;
Do uses dodaj ShellAPI.
PS. Wirus? Trojan?
</span>
Nie zrozumiałeś mnie.
Na głównym formularzu mojego programu mam link, po kliknieciu otwiera się strona w domyślnej przeglądarce.
Jak zminimalizować to okno a za pięć sekund zamknąć.
No drugi raz napsiałeś to samo i znowu wywnioskowałem to samu!!! Klikasz i otwiera się strona (to masz od tego shellexecute). Dodajesz też Timer1.Enabled:= True; i uruchamia się odlicznie czasu do zamknięcie (5s). W zdarzeniu OnTimer masz funkcję która zamyka okno (podajesz tylko uchwyt) i dodatkowo Timer1.Enabled:= False; . Nie dociera do mnie jak to można inaczej zrobić. :-D :-D :-D
Aha i to bie chodziło jak ją zminimalizować, nie musisz bo w ShellExecute które ci podałem wyżej masz zdeklarowane że strona otworzy się zminimalizowana.
Tekst := FindWindow('Tytuł strony', 'IEFRAME?');
Przecież nie chcemy "zabić" pierwszego, lepszego okna ? ;)
nie prosciej uzyc funkcji Sleep(XXXX);?
w XXXX wstaw 5000 milisekund (lub godzin;p