ايران ويج

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Sub Form_Load()
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
End Sub

مي‌خواستم يه برنامه بنويسم كه با دادن اسم فايل به اجراي آن فايل خاتمه بده يعني فايل مورد نظر را EndProcess كنه .
حالا من از كدهاي بالا استفاده كردم اما فقط اين كد ها خود برنامه را خاتمه ميدن .
يعني بايد به جاي GetCurrentProcess اشاره‌گر فايل مورد نظر را بنويسيم.
حالا اشاره گر فايل مورد نظر در Process را چگونه بدست بياورم؟
يعني در مثال بالايي به جاي GetCurrentProcess بايد اشاره گر فايل مورد نظر را بنويسيم.
Private Sub Form_Load()
ExitProcess GetExitCodeProcess(اشاره‌گر فايل مورد نظر,0)
End Sub

اين يه لينك هست كه توش همون كاري كه ميخوايي انجام داده ميشه.
http://www.iranvig.com/modules.php?name=...le&sid=559

آقا اشكان نوشته بود :

نقل قول: اين يه لينك هست كه توش همون كاري كه ميخوايي انجام داده ميشه.
http://www.iranvig.com/modules.php?name=...le&sid=559
_________________
ايران ويج سايتي براي همه برنامه نويسان ايراني

آقا اشكان من اينو هم ديدم ولي در اين از كنترل Listwiew استفاده شده كه اين كنترل خودش اتوماتيك اشارهگر فايل رو ميده ولي من منظورم اينه كه از يه تكست باكس اسم يه فايل رو كه در خال اجرا ميباشد رو بدم و برنامه از آن فايل ( كه اسمش رو در تكست باكس به عنوان ورودي دادم) يه اشاره‌گر برگردونه تا در تابع ExitProcess استفاده كنم. يعني بدون استفاده از منترل ListWiew كه خودش اشارهگر فايل رو اتوماتيك ميفرسته. يعني بايد از ليست انتخاب كنيم در اين برنامه ولي من ميخام اسم فايل رو خودم از تكست باكس بدم.

ايني كه ميگي تو سايت هست بايد بگردي.