لدي سؤالين

اقتباس

التشغيل مع بدايت تشغيل وندز

Public Declare Function RegCreateKeyEx& Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long)
Public Declare Function RegSetValueEx& Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long)
Public Declare Function RegCloseKey& Lib "advapi32.dll" (ByVal hKey As Long)

Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const REG_OPTION_NON_VOLATILE = 0
Public Const SYNCHRONIZE = &H100000
Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Public Const ERROR_SUCCESS = 0&
Public Const REG_SZ = 1

Public Function RunNextBoot(ByVal AppName As String, ByVal CmdLine As String, Optional ThisUserOnly As Boolean = False, Optional RunEveryBoot As Boolean = False)
  Dim TopKey As Long
  Dim SubKey As String
  Dim nRet As Long
  Dim hKey As Long
  Dim nResult As Long
      
  If RunEveryBoot Then
    SubKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
  Else
    SubKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
  End If
  
  If ThisUserOnly Then
    TopKey = HKEY_CURRENT_USER
  Else
    TopKey = HKEY_LOCAL_MACHINE
  End If
  
  nRet = RegCreateKeyEx(TopKey, SubKey, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, ByVal 0&, hKey, nResult)
  
  If nRet = ERROR_SUCCESS Then
    nRet = RegSetValueEx(hKey, AppName, 0&, REG_SZ, ByVal CmdLine, Len(CmdLine))
    Call RegCloseKey(hKey)
  End If
  
  RunNextBoot = (nRet = ERROR_SUCCESS)
End Function

اقتباس

وضع الايقونه في شريط المهام

'في Module
Type NOTIFYICONDATA
    cbsize              As Long
    hWnd                As Long
    uID                 As Long
    uFlags              As Long
    ucallbackMessage    As Long
    hicon               As Long
    szTip               As String * 

'في النموذج
Dim SW As String
Dim PrevWord As String
Dim Beeped As Boolean
Dim MyHeight As Long
Dim MyWidth As Long
Dim Res As Long
Dim si As NOTIFYICONDATA

Private Sub DeleteIcon()
On Error Resume Next

Dim Tic As NOTIFYICONDATA
Tic.cbsize = Len(Tic)
Tic.hWnd = Picture1.hWnd
Tic.uID = 1&
End Sub

Private Sub Form_Load()
On Error Resume Next

MyHeight = Me.Height
MyWidth = Me.Width

'Put the icon in the system try.
si.cbsize = Len(si)
si.hWnd = Picture1.hWnd
si.uID = 1&
si.szTip = "الحسام يرحب بكم" + Chr$(0)
si.ucallbackMessage = WM_MOUSEMOVE
si.hicon = Me.Icon
si.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
Shell_NotifyIconA NIM_ADD, si

Me.WindowState = 3

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next

si.cbsize = Len(si)
si.uID = 1
si.hWnd = Picture1.hWnd
Shell_NotifyIconA NIM_DELETE, si


End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

Dim lMsg As Long

lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
      Case WM_LBUTTONDBLCLK:
           Me.Show
           Me.WindowState = vbNormal
      Case WM_LBUTTONDOWN:
           Me.Show
           Me.WindowState = vbNormal
      Case WM_LBUTTONUP:
      Case WM_RBUTTONDBLCLK:
      Case WM_RBUTTONDOWN:
           Me.PopupMenu mnuMain
      Case WM_RBUTTONUP:
End Select
End Sub
Private Sub Form_Resize()
On Error Resume Next

If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
If Me.WindowState = vbMinimized Then
   Me.Hide
   Exit Sub
End If
Me.Height = MyHeight
Me.Width = MyWidth

End Sub

Private Sub cmdMinimize_Click()
On Error Resume Next

Me.WindowState = 1

End Sub

:unsure:

اقول الله يوفك دنيا واخره إن شاء الله

لسرعة التجاوب

ولكن في مشكلة كل ما اضع الاكواد بتطلع عندي اخطاء ما ادري المشكله اين

لو تكرمت علي وتضع البرنامج في المنتدى لكي يتم سحبة

والله اكون لك من الشاكرين

اخوكم .....

عزيزي aned

لقد وضعت لك مثالين للسؤالين الذي طلبتهما

اذا واجهتك اي مشكلة او اي استفسار فلا تتردد بطلب ذلك

اما بانسبة لجعل ابرنامج يشتغل مع الويندوس فقد وضعت لك معه شرح

وهذا الشرح للامانة من الأستاذ صلاح الدين(The MP )

وانا بهذا ايضا بريح الأخ HnHn

والسلام

start_every_time_windows_reboot.rar

System_tray.rar

الاخ ابو صابرين

اشكرك على المثال المرفق الخاص بوضع البرنامج بجانب الساعة .. لقد قمت بأنزال برنامج في المنتدى وكنت قد عجزت عن استخدام هذه الدالة بشكل سليم .. والان اجد مثال كامل

لو تكرمت بشرح هذا الجزء واكون لك شاكرا :

'ÓíÊã ÊÊÈÚ ÇÍÏÇË ÇáÝÇÑÉ åäÇ
    Select Case (X \ Screen.TwipsPerPixelX)
        'ÚäÏ ÊÍÑß ÇáÝÇÑÉ ÝæÞåÇ
        Case &H200
            Caption = Val(Caption) + 1
        'ÚäÏ ÇáäÞÑ ÚáíåÇ ÈÇáÝÇÑÉ
        Case &H203
            Me.Visible = True
            Me.WindowState = vbNormal
        'ÇáäÞÑ ÈÇáÒÑ ÇáÇíãä
        Case &H205
            PopupMenu Mnu_File
        
    End Select

اريد معنى (Select Case (X \ Screen.TwipsPerPixelX) فلم افهم ما معنى الخاصية twipsperpixelx وما علاقتها بأكس وما علاقتها بأحداث الفأرة المختلفة ..

وشكرا ..

جزاكم الله خير كل من الخ ابو صابرين والاخ هن هن

اخوكم ....