المشاركات : 6
المواضيع 1
الإنتساب : Apr 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم
الرجاء في المساعدة في اضافة ملفات من نوع reg او exe واسخراجه في مكان ما ثم استخدامة ...
المشاركات : 104
المواضيع 18
الإنتساب : Dec 2012
السمعة :
4
الشكر: 658
تم شكره 235 مرات في 15 مشاركات
وعليكم السلام
تفضل
Public Class Form1
Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_SYSCOMMAND As Integer = 274
Private Const SC_MAXIMIZE As Integer = 61488
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim proc As Process
proc = Process.Start("C:\Windows\system32\notepad.exe")
proc.WaitForInputIdle()
SetParent(proc.MainWindowHandle, Me.Handle)
SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
Me.BringToFront()
End Sub
End Class
المشاركات : 6
المواضيع 1
الإنتساب : Apr 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
الله لا يهينك لكن المقصد هو انا عندي كود اضافة ملف الى المشروع واستخراجة في مكان معين :
مثال
(استدعاء واستخراج الملف في مكان ما)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim value As Byte()
My.Computer.FileSystem.DirectoryExists("c:\test")
value = My.Resources.test
My.Computer.FileSystem.WriteAllBytes("c:\test", value, True)
Dim NewProcess As Process = New Process
End Sub
( نقل الملف )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fi As New FileInfo("c:\test")
fi.MoveTo("d:\test")
End Sub
الكود لا يقبل ملفات اخرى مثل reg او exe او اي صيغة اخرى ، اريد كود يتعامل مع هذا النوع من الملفات .
المشاركات : 6
المواضيع 1
الإنتساب : Apr 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ارجو المساعدة يا اهل الخبرة
المشاركات : 26
المواضيع 4
الإنتساب : Mar 2015
السمعة :
1
الشكر: 0
تم شكره 164 مرات في 9 مشاركات
تقصدك أضافتها فين بالضبط ؟
بالريسورس ؟
انا عن نفسي م فهمت السؤال
المشاركات : 6
المواضيع 1
الإنتساب : Apr 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ايه نعم ..
انا اتعامل بالريسورس ...
اذا فيه طريقة ثانية تفي بالغرض يا ليت المساعدة , اهم شي الاقي حل سواء بالريسورس او غيره ...
المشاركات : 6
المواضيع 1
الإنتساب : Apr 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
في انتظار المساعدة يا اخوان ....
المشاركات : 6
المواضيع 1
الإنتساب : Apr 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ما زلت في انتظار المساعدة لا تبخلوا علينا