Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ukrywanie programu
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003
Ukrywanie programu

Chciałbym sie dowiedzieć jak spowodować by program po uruchomieniu sie schował mam na myśli nie był widoczny na pulpicie ani nie był zminimalizowany, żeby był widoczny jedynie po naciśnięciu Ctrl alt del. Chciałbym dorzucić do tego włączony Timer a przy włączonym Timerze nie działa Form1.Visible = False. Odpowiedź zapewne jest prosta ale niech mnie ktoś naprowadzi


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

28-10-2003 00:03
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Bardzo dziwne bo u mnie dziala Form1.visible=false przy wlaczanym Timer !

Na pusta forme wstaw Timer, ustaw mu Interval=1000 i Enabled=False

nastepnie wstaw ten kod i uruchom program

Dim czas As Integer

Private Sub Form_Load()

czas = 0
Form1.Show
Form1.Timer1.Enabled = True
Form1.Visible = False

End Sub

Private Sub Timer1_Timer()
czas = czas + 1
If czas = 5 Then
    End
End If
End Sub

po 5 sekundach program zakonczy dzialanie ... czyli dziala

28-10-2003 12:39
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
busio
busio




Typ: neutral
Postów: 98
Zarejestrowany: Sep 2002

Witam

Nie wiem czemu się upierasz na załadowanie formatki.
Ja tam napisałbym w Main pętle np.

while 1
  if getkeystate('klawisz') & getkeystate('klawisz') & getkeystate('klawisz') then
          pokaz_formatke_modalnie
  endif
  if getkeystate('klawisz') & getkeystate('klawisz')  then
          end
  endif
    DOEVENTS '!!!!!
    sleep 100 'np
wend

gdzie 'klawisz' to np CTL, ALT, DEL...

oczywiscie API trzeba zadeklarować.

Spowolnieniem systemu bym sie nie przejmował przecież Timer też pochłania zasoby

pozdrawiam busio

05-11-2003 09:27
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1