Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: Co zrobić aby mój program włączał ... EtErO Typ: neutral Postów: 11 Zarejestrowany: Jul 2004 Co zrobić aby mój program włączał ... Co zrobić aby mój program włączał się przy starcie Internet Explorera? Jeszcze jedno pytanie: Co zrobić aby forma była zawsze na wieżchu?? ps.Wiem ,że ten temat był już poruszony ale nie moge go znaleźć. Za wszelkie błędy ortograficzne Very Sorry. 29-07-2004 11:06 1216660 mikmas From Łódź Stadt Typ: neutral Postów: 772 Zarejestrowany: Apr 2003 Co do startu aplikacji to nie wiem. Pewnie trzeba zdobyć hwnd explorera za pomocą getcaption lub coś koło tego, ale nie potrawię mając hwnd aplikacji zobaczyć, czy jest uruchomiona, ale mogę Ci zrobić programik, bo mam piewien pomysł. A co do formy zawsze nawierzchu to w dziale tips jest coś,c nie chce mi się włazić, a mam to na dysiorze, dlatego podaję poniżej: Global Const HWND_TOPMOST = -1 Global Const HWND_NOTOPMOST = -2 Global Const SWP_NOACTIVATE = &H10 Global Const SWP_SHOWWINDOW = &H40 Declare Sub SetWindowPos Lib "User32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) 'Teraz wpisujemy funkcję: Function StayTop(nazwaFormy As Form, FormOnTop As Boolean) If FormOnTop = True Then SetWindowPos nazwaFormy.hwnd, HWND_TOPMOST, nazwaFormy.Left / 15, _ nazwaFormy.Top / 15, nazwaFormy.Width / 15, _ nazwaFormy.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW ElseIf FormOnTop = False Then SetWindowPos nazwaFormy.hwnd, HWND_NOTOPMOST, nazwaFormy.Left / 15, _ nazwaFormy.Top / 15, nazwaFormy.Width / 15, _ nazwaFormy.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW End If End Function Dobrze by było, jakbyś to wstawił w module i np z form_load wywoływał. Zastosowanie: staytop me,true - forma na wierzchu staytop me,false - forma przestaje być w trybie zawsze na wierzchu [Post edytowany dnia 29-07-2004 14:07 przez mikmas] _____________________________________________ 4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20; 62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65; 6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F; 77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E; 61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61; 6E;69;75;20;3A;50 29-07-2004 14:06 3632553 EtErO Typ: neutral Postów: 11 Zarejestrowany: Jul 2004 heh Dzięki Miksmas zrobił byś mi ten programik jeśli możesz dzięki za info co zrobić żeby kontrrolka była zawsze na wierzchu. [Post edytowany dnia 29-07-2004 21:16 przez EtErO] 29-07-2004 21:15 1216660 mikmas From Łódź Stadt Typ: neutral Postów: 772 Zarejestrowany: Apr 2003 Nie zadobrze. Funkcja FindWindow znajduje wszystkie okienka, które podaję OPRÓCZ internet explorera . Poprostu, tak jakby go nie było . Ale mimo wszystko zamieszczam poniżej kod: Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Function Sprawdz(Optional Class As String = vbNullString, Optional Caption As String = vbNullString) As Boolean Dim wHwnd As Long 'Z powodzeniem mogłoby być tu i integer, ale w progu skąd wziąłem pierwowzór (Workshop-->System-->klasy) było tak wHwnd = FindWindow(Class, Caption) 'Znajdź hwnd okienka o danej klasie i/lub nagłównku If wHwnd <> 0 Then Sprawdz = True Else Sprawdz = False 'Jeżeli znalazł hwnd okienka (czyli taki okienko istnieje), to potwierdź znalezienie okienka End Function Private Sub Form_Load() Me.Hide End Sub Private Sub Timer1_Timer() If Sprawdz(, "ftp://protom.one.pl/ - microsoft Internet explorer" = True Then Me.Show End Sub _____________________________________________ 4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20; 62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65; 6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F; 77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E; 61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61; 6E;69;75;20;3A;50 29-07-2004 22:00 3632553 EtErO Typ: neutral Postów: 11 Zarejestrowany: Jul 2004 A Win Xp Czy ta funkcja działa pod Win Xp bo mi coś nie wychodzi.Co trzeba wpisać żeby otwierał sie Paint? 29-07-2004 22:12 1216660 mikmas From Łódź Stadt Typ: neutral Postów: 772 Zarejestrowany: Apr 2003 Dziwne Painta też nie może znaleść . FindWindow (ta funkcja) jest coś skopana . Nie mogę Ci pomóc _____________________________________________ 4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20; 62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65; 6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F; 77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E; 61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61; 6E;69;75;20;3A;50 30-07-2004 11:53 3632553 napadlek Ciapek Typ: neutral Postów: 117 Zarejestrowany: Feb 2003 Rozumiem ze uzywasz ftp://protom.one.pl/ jako swojej strony startowej?? Moze sa jakies duze/male litery, albo majkrosoft dodal jakies spacje... Zreszta, ten sposob i tak jest bledny, bo np. u mnie przy pakiecie i isdnie dopieprza mi sie napis "tp wita Cie w Internecie", tak samo robi bankrut jak ma takie ustawienie... Sproboje moze cos pomyslec, ale to nic pewnego. _____________________________________________ ruszyla od nowa zapraszam 31-07-2004 22:15 3392810 m-a-x Typ: neutral Postów: 366 Zarejestrowany: Jan 2003 Ze względu na to że okna mogą mieć różną nazwe (tytuł) należy raczej przeszukiwać wzgledem nazwy klasy! Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, Optional ByVal lpWindowName As String) As Long Private Sub Timer1_Timer() If FindWindow( "IEFrame" ) Then Me.Caption = "jest" Else Me.Caption = "nie ma" End If End Sub Nie jest to jednak dobry sposób ponieważ aplikacja działa już przed uruchomieniem IE a pytającemu chodziło chyba o jej start razem z IE. Można by bylo to osiągnąć pisząc jakiegoś plugina do IE - kiedyś coś cudowalem z tym tematem ale jakoś mi chęci po pewnym czasie zabrakło [Post edytowany dnia 01-08-2004 09:52 przez m-a-x] _____________________________________________ Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania! 01-08-2004 09:51 Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |