Windows’tan hızlı çıkış.
WINDOWS, programcıların işini kolaylaştırmak için elinden geleni yapar. Örneğin bazı programlar WINDOWS’u yeniden başlatmak Windows’tan çıkmak bilgisayarı boot etmek gibi bazı özelliklere sahiptir. Bunu nasıl mı sağlıyorlar? Tabii ki şu meşhur API fonksiyonlarını çağırarak... Örneğimizi uygulamak için öncelikle yeni bir modül yaratıp aşağıdaki satırı bu modüle girin.
Declare Function ExitWindows Lib "user" (ByVal kod As Long, ByVal rezerve As Integer) As Integer
WINDOWS oturumunu kapatmak için o anda aktif olacak bir yere (Form1_Load gibi...) aşağıdaki satırı girin.
Deger = ExitWindows(0,0) ‘İşlem başarılamadıysa “Deger” “1” den farklı olur.
Windows’u kapatıp tekrar başlatmak için ise şu satırı kullanın:
Deger = ExitWindows(&H42,0) ‘İşlem başarılamadıysa “Deger” “1” den farklı olur.
Yarattığınız modülleri kaydetmeyi unutmayın çünkü programı çalıştırdığınızda VB size projenizi kaydedip kaydetmemek istediğinizi sormayacak ve direkt Windows’tan çıkacaktır. Program Windows’un bir API’sini çağırdığından diğer çalışmalarınızda kaydetmediğiniz dökümanlarınız varsa Windows’tan çıkılmadan bu hususlara dikkat edilecektir. Buna bağlı olarak API’yi kullandığınızda programınızın da sonlanmasına dikkat etmelisiniz, (Mesela sonuna END koyun.) çünkü Windows kapatılamazsa programa geri dönülür.