بستن يك برنامه ديگر از داخل برنامه

[mohammadsaleh]

دوستان با تابع shell() مي توان يك برنامه مثلا ماشين حساب ويندوز را اجرا كرد.
حال سئوال اينجاست چگونه مي شود اين برنامه يا هر برنامه ديگر را از طريق برنامه اي كه د ر آن هستيم ببنديم .با كد نويسي

[r0ot$harp]

دوستان با تابع shell() مي توان يك برنامه مثلا ماشين حساب ويندوز را اجرا كرد.
حال سئوال اينجاست چگونه مي شود اين برنامه يا هر برنامه ديگر را از طريق برنامه اي كه د ر آن هستيم ببنديم .با كد نويسي

دوست عزیز اینم خدمت شما :



Private Const WM_CLOSE = &H10

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Sub Command1_Click()
SendMessage Me.hwnd, WM_CLOSE, 0&, 0&
End Sub




باتشکر احسان