Strona: [  << <   1   > >>  ]  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
Pokaż profil EtErO  Wyślij email do EtErO        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
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       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
Pokaż profil EtErO  Wyślij email do EtErO        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
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       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
Pokaż profil EtErO  Wyślij email do EtErO        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
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       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.


_____________________________________________
www.napadlek.prv.pl ruszyla od nowa zapraszam

31-07-2004 22:15
Pokaż profil napadlek  Wyślij email do napadlek   Odwiedź stronę napadlek       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
Pokaż profil m-a-x  Wyślij email do m-a-x   
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1