أريد كود يجعل شاشات برنامجي في البداية

1- تشغيل برنامجي أثناء فتح الوينهدوز :

يمكن ذلك إما بإدراجة بمسجل النظام كما يلي :

في المسار التالي :

Hkey_local_machine\software\microsoft\windows\currentversion\runonce\

قم بإدراج أي مفتاح فرعي تحت إسم معين ، ومن ثم حدد به مسار برنامجك Project1.exe

ولكن ملحوظة هذا ينفذ مرة واحدة بعد إعادة التشغيل ، ولكن هناك طريقة أفضل وهي

في المسار

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\

بداخلة مفتاح جاهز يدعي Shell ، يحتوي علي جملة Explorer قم بإدراج برنامجك فية

2- تشغيل النموذج في مقدمة البرامج :

Private Declare Function SetWindowPos Lib "user32" (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) As Long

Private Const SWP_NOMOVE = 2

Private Const SWP_NOSIZE = 1

Private Const HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2



Public Sub SetOnTop(ByVal hwnd As Long, ByVal bSetOnTop As Boolean)

Dim lR As Long

If bSetOnTop Then

lR = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

Else

lR = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

End If

End Sub



Private Sub Form_Load()

SetOnTop Me.hwnd, True

End Sub

شكراً