win32 from vb

niakoi moze li da mi kaze zashto tova neraboti

v na4aloto na modula

Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwAccess As _
Long, ByVal fInherit As Integer, ByVal hObject As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernal32" _
(ByVal hProcess As Long, ByRef lpExitCode As Long) As Boolean


sled tova vyv funkcia

Dim procHandle As Long
Dim exitCode As Long

procHandle = OpenProcess(&H100000, True, taskId)
Call WaitForSingleObject(procHandle, msecs)

i tuk neshto se 4upi

Call GetExitCodeProcess(procHandle, exitCode)

nemoga da polu4a s kakyv kod izlizam ot programata
GetExitCodeProcess - dava niakakva greshka, koiato obshto vzeto nishto ne kazva

[линк]

Жалко обаче, че сайта вече няма да се потдържа :(

Изтегли си от там ApiGuide. Доста полезно средство за API функциите на Windows и има примери за всяка функция...може и да ти свърши работа

Ако имаш разтворими сокчета, не се мисли за космонавт