Prikazi cijelu temu 13.02.2014 17:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ili možda isto sa VBA
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  4. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  5. Const WM_CLOSE = &H10
  6.  
  7. Function ZatvoripProgram()
  8. Dim winHwnd As Long
  9. Dim RetVal As Long
  10. winHwnd = FindWindow(vbNullString, "ImeFoldera")
  11. If winHwnd <> 0 Then
  12. PostMessage winHwnd, WM_CLOSE, 0&, 0&
  13. Else
  14. MsgBox "NIJE OTVOREN"
  15. End If
  16. End Function


Promijeni naslov
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 13.02.2014 21:00 od strane zxz.