[3amo]

اريد انا اجعل الملف كريسورس حتى يتم تحميل جميع الملفات فى برنامج واحد

السلام عليكم ورحمة الله
قم بإضافة الملف للريسورس ثم اكتب هذا الكود في المكان المناسب للاستخراج الملف من الريسورس

PHP كود :

Dim f As Integer
Dim sPath As String
f = FreeFile

sPath = App.Path & "\"

Open sPath & "player.exe" For Binary As #f
Put #f, , LoadResData(101, "CUSTOM")
Close #f 


اتمنى ان يكون هذا طلبك
بالتوفيق..