ايران ويج

سلام دوستای خوبم من عضو جدیدم اما میخوام زیاد کرم بریزم.
اول اینکه چطور میشه ایکون نرم افزاری رو که ساختم گوشه کنار ساعت ویندوز نمایش بدم؟
دوم اینکه میخوام کاری کنم که این نرم افزار وقتی فقط روی یک سیستم نصب بشه و نتونه روی یک سیستم دیگه اجرا بشه.
ممنون

با سلام
لطفا موضوع را با متن سوال هماهنگ انخاب کن.
در مورد دو تا سوالت هم اگه کمی تو سایت بسرچی حتما پیدا می کنی
موفق باشی

دوست عزیز
برای قرار دادن آیکن در سیستم ترای می تونی از سورس زیر استفاه کنی.
همچنین برای جلوگیری از اجرا برنامه روی کامپیوتر های دیگه باید یه نوع قفل بر روی برنامه قرار بدی. به طوری که این قفل شماره سریال هارد یا مادربورد سیستم رو بخونه و طبق اون کدی رو تولید کنه. در مرحله بعد شما اون کد رو به کد دیگه ای تبدیل کنی که فقط برای برنامه قابل فهم باشه. و برنامه با دریافت اون و چک کردنش با کد اولیه در صورت صحیح بودن اجازه اجرای برنامه رو به کار بر خواهد داد.
با این کار برای اجرا برنامه روی هر سیستم احتیاج به کدی مخصوص همون کامپیوتر وجود داره . مقاله کاملش رو همراه با مثال داخل سایت گذاشتم که می تونی از اون استفاده کنی.

[attachment=736]

نمي دونم اين سورس didi عزيز همراه با افكت هاش يا نه . Eris اگه ديدن افكتي روبه ساعت نداره برو از توي وبلاگم ببين . گذاشتمش
www.godvb.blogfa.com

اينم كدش الان توي سيتمم پيداش كردم
این هم ایجاد افکت های Goto tray .

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function DrawAnimatedRects Lib "user32" (ByVal hwnd As Long, ByVal idAni As Long, lprcFrom As RECT, lprcTo As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GW_CHILD = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDLAST = 1
Private Const GW_HWNDNEXT = 2
Private Const GW_HWNDPREV = 3
Private Const GWL_WNDPROC = (-4)
Private Const IDANI_OPEN = &H1
Private Const IDANI_CLOSE = &H2
Private Const IDANI_CAPTION = &H3
Private Const WM_USER = &H400
Private rctFrom As RECT
Private rctTo As RECT
Private lngTrayHand As Long
Private lngStartMenuHand As Long
Private lngChildHand As Long
Private strClass As String * 255
Private lngClassNameLen As Long
Private lngRetVal As Long

Public Function TitleToTray(frm As Form)

lngStartMenuHand = FindWindow("Shell_TrayWnd", vbNullString)
lngChildHand = GetWindow(lngStartMenuHand, GW_CHILD)
Do
lngClassNameLen = GetClassName(lngChildHand, strClass, Len(strClass))
If InStr(1, strClass, "TrayNotifyWnd") Then
lngTrayHand = lngChildHand
Exit Do
End If
lngChildHand = GetWindow(lngChildHand, GW_HWNDNEXT)
Loop
lngRetVal = GetWindowRect(frm.hwnd, rctFrom)
lngRetVal = GetWindowRect(lngTrayHand, rctTo)
lngRetVal = DrawAnimatedRects(frm.hwnd, IDANI_OPEN Or IDANI_CAPTION, rctFrom, rctTo)
End Function



Public Function TrayToTitle(frm As Form)

lngStartMenuHand = FindWindow("Shell_TrayWnd", vbNullString)
lngChildHand = GetWindow(lngStartMenuHand, GW_CHILD)
Do
lngClassNameLen = GetClassName(lngChildHand, strClass, Len(strClass))
If InStr(1, strClass, "TrayNotifyWnd") Then
lngTrayHand = lngChildHand
Exit Do
End If
lngChildHand = GetWindow(lngChildHand, GW_HWNDNEXT)
Loop
lngRetVal = GetWindowRect(frm.hwnd, rctFrom)
lngRetVal = GetWindowRect(lngTrayHand, rctTo)
lngRetVal = DrawAnimatedRects(frm.hwnd, IDANI_CLOSE Or IDANI_CAPTION, rctTo, rctFrom)

End Function



Private Sub Command1_Click()
TitleToTray Form1
End Sub

Private Sub Command2_Click()
TrayToTitle Form1
End Sub