سلام
اینکه مثلا یک فایل exe یا عکس و یا هر نوع فایلی رو
چطور میشه به صورت RES داخل برنامه گذاشت و مثلا کلیدی گذاشت تا اون فایل رو در آدرسی که ما میخواهیم کپی کنه
سوال بعدی در مورد مسیر های ویندوز هست
چطور میشه مثلا system32 ر در هر کامپوتری مقصد قرار داد
چون مثلا ویندوز طرف روی درایو D باشه ..... !!!
سوال بعدی هم در مورد اینکه چطور میشه فایل مشخصی رو که در آدرس معینی قرار داره Delete کرد
اگر سورس بزارید با توضیحات لازم ممنون میشم
البته احتمال میدم که این مباحث قبلا تکرار شده
اما من گشتم پیدا نکردم
ممنون میشم
خدانگهدار
از منوی add in manager
resource editor رو add کن. بعد هر فایلی رو با add custom اضافه کن.
با این می تونی کپیش کنی
کد:
Private Sub RES_Extract(ID_Ressource As String, Typ_Ressource As String, FileName As String)
Dim sType As String
Dim lFile As Long
Dim lID As Long
Dim Mt() As Byte
On Error Resume Next
lFile = FreeFile
Open FileName For Binary As #lFile
lID = CLng(ID_Ressource)
sType = Typ_Ressource
Mt = LoadResData(lID, sType)
Put #lFile, , Mt()
Close #lFile
End Sub
سوال دوم هم با API
getwindowsdirectory
getsystemdirectory
gettemppath
یه متغیر معرفی کن . چندتا space بزن توش
بعد با اون API ها مسیر پیدا کن بعد با Trim فاصله رو حذف کن. اگه سرچ می کردی توضیح کامل هم پیدا می شد. تنبل
(شوخی کردم!)
مرسی
ولی
؟!
فکر کنم چند جای کد مثل اینا که گفتم نیاز به توضیح داره
ID_Ressource
Typ_Ressource
کاش سورس میزاشتی
اونجوری بهتر بود
و اینکه من میخواستم تو آدرس مشخصی کپی بشه
اگر سورس بدین ممنون میشم
اینجوری چیزی مشخص نیست
با سلام
مرد عنکبوتی یک زیر برنامه نوشته که با دریافت سه رشته فایل رو استخراج می کند به صورت زیر :
ID_Ressource شماره ای که کنار فایلهای ریسورست زده که معمولا از 101 شروع می شن
Typ_Ressource نوع داده ی ریسورس است که بطور پیشفرض CUSTOM نام گذاری می شود و با دابل کلیک روی فایل ریسورس می تونی همه اینا رو ببینی
آخرین آرگومان هم مر بوط به آدرس فایل هست که می خواهی در آنجا ذخیره شود
-----------------------------------------------------------
برای استفاده از ای پی آی هم می تونی از برنامه API text viewer استفاده کنی و داخل آن فایل متنی زیر رو باز کنی :
Win32API.txt
ونحوه فراخوانی تابع مورد نظر رو ببینی و کپی کنی
فقط اگر داخل بخش جنرال فرم بنویسی (فراخوانی تابع رو میگم)باید Public رو به Private تغییر بدی
و در ضمن برای استفاده از تابع می تونی از مثال زیر استفاده کنی :
کد:
dim Sysdir as string
sysdir=space(255)
getsystemdirectory sysdir ,255
text1.text=trim(sysdir)
برای حذف فایل می تونی از Kill استفاده کنی که بعد از دستور باید آدرس فایل رو هم بنویسی البته می تونی از API هم استفاده کنی که اونو هم می تونی از همون api text viewer که به اسم Public Declare Function
deletefile
هست پیدا کنی
متوجه این نشدم :
آخرین آرگومان هم مر بوط به آدرس فایل هست که می خواهی در آنجا ذخیره شود
؟؟؟؟؟؟؟!!!!!
مرسی به خاطر توضیحاتتت
فایل ریسورس برای اجرا رشدن باید بصورت باینر ی یکجای هارد ذخیره بشه و به اوجایی که ذخیره بشه آدرسشو می نویسی مثلا :
C:\test\App.exe
متوجه شدم
آدرس باید کجای کد اضافه بشه ؟!
تابع res_extract رو که نوشتی بجای filename (که همون آرگومان آخر) آدرس رو بنویس
منم به یه مشکلی بر خوردم. وقتی آدرس پوشه ویندوز یا temp رو در میارم. آخرش یه space می مونه! (بعد از trim). وقتی میزارمش تو یه تکست باکس حذف میشه. کسی میدونه باید چیکار کرد. حامد جان همون کدی که خودت نوشتی رو با debug.print امتحان کن. من برامم فقط یه sub main داره. تکست باکس هم ندارم که بفرستمش اونجا تا فاصله آخرش حذف بشه. چیکار کنم؟!