Fa اجرای برنامه از روی هارد دیسک

aryan261 · Jan 2, 2011

سلام ، من میخوام یک برنامه بنویسم که وقتی نصب میشه از روی هارد اجرا بشه و اطلاعات رو از روی سی دی داخل سی دی رام بخونه یعنی با کلید های که توی برنامه روی هارد است مثلا یک برنامه که فایل exe ش روی سی دی است اجرا بشه.
مشکل ها
1- چطوری سی دی رام ها رو شناسایی کنم.
2- چطوری مسیر بدم که دقیقا سی دی رامی که سی دی من توشه رو بخونه (چون روی بعضی سیستمها چند سی دی رام وجود داره)
3- توی سیستم های مختلف اسم درایو سی دی تفاوت داره .این مشکل رو برای اجرا چطوری حل کنم .
لطفا برام مثال بزنید چون بیلدرم خیلی ضعیفه .

loo30fer · Jan 2, 2011

سلام
دوست عزیز لطفا هنگام ایجاد یک مبحث از عنوان مناسب استفاده کنید .

یک نمونه براتون پیوست کردم

ali guard · Jan 2, 2011

سلام دوست من من یك نمونه‌ كامل براتون زدم یك فایا با نام
checker.cd
بریز تو سیدیتون و كدی كه‌ داخل صفحه‌ اول هست بریز داخل صفحه‌ی اول بروژه‌تون با یك دكمه‌ زدم برای اجرای فایل همون كد برای اجرای هر فایلی ایستفاده‌ كنید اگر سوالی بود بگید

nevercom · Jan 2, 2011

دوست عزیز این موضوع چندین مرتبه مطرح شده، اگر از جستجو استفاده کنید زودتر به پاسخ خواهید رسید
ضمن اینکه عنوان تاپیک رو مناسب انتخاب کنید، چون عدم رعایت این موضوع باعث میشه که اخطار دریافت کنید

عنوان مبحث ویرایش شد

موفق باشید.

aryan261 · Jan 3, 2011

بخاطر اشتباه هایی که کردم منو ببخشید ، ممنون بخاطر کمکتون.

aryan261 · Jan 3, 2011

ببخشید در این نوع آدرس دهی وقتی مثلا یک فایل pdf روی سی دی داریم و در برنامه روی هارد یک binding object داریم که میخواهیم فایل pdf رو آدرس دهی کنیم ، در این صورت چطوری آدرس بدم ؟

ali guard · Jan 3, 2011

تا اونجای فهمیدم میخواهید فایلی pdf درسیستم هست ادرس بدهید در این حالت ادرس كامل فایلتون بدید یانی اون متغیر كه‌ مربوط با درایو هست باردرید یانی این

کد:

drive$+'\\'+

باردرین با جای ان نا درایو مورد نضرت بدید

aryan261 · Jan 3, 2011

من همونطور که گفتید آدرس میدم ولی نمیتونه پیداش کنه ، نمیدونم چکارش کنم.
drive$+'\\'+ 'Install\setup.exe' 1

ali guard · Jan 3, 2011

aryan261 گفت:
من همونطور که گفتید آدرس میدم ولی نمیتونه پیداش کنه ، نمیدونم چکارش کنم.
drive$+'\\'+ 'install\setup.exe' 1

دقیق ادرس فایلتون در سیدی چی هست تامن یك نمونه‌ برات بزنم

aryan261 · Jan 4, 2011

من فایل exe در مسیر install\setupe.exe\ و فایل های pdf دارم که با binding box یا html میخوام آدرس دهی کنم.
آدرس دهی هایی که شما گفتید رو به صورت زیر ، در پیوست برای هر کدوم دادم.
در صفحه اول هم همون کدی که شما داده بودید استفاده کردم . فایل چک به درستی چک میشه ولی فایل اجرایی اجرا نمیشه و فایل pdf رو نشون نمیده .

loo30fer · Jan 4, 2011

با اجازه جناب ali guard

خوب نبایدم کار کنه چون شما آدرس با متغیر به خود شی Browser دادین و نمیتونه آدرس رو از متغیر بگیره و اگه هم میتونست درست عمل نمیکرد چون آدرس دهیتون اشتباهه شما برای ارسال آدرس و نمایش PDF باید اینطوری عمل کنید :

کد:

Path$ = drives$+':\\'+'Rahnama\Arshad89_azad.pdf'
Browser("Browser","Path$")

ali guard · Jan 4, 2011

برا عكس دووه‌متون باید ستاره‌ های اول دستور run باردارید با این شكل

کد:

run$=drive$+'\\'+ 'mb\exe mmb\command runner!.exe'
Run("run$","")
Message("run$","")

aryan261 · Jan 4, 2011

مشکل فایل exe حل شد ولی مشکل فایل pdf نه . تو صفحه اول این کد رو کپی کردم
For i=68 To 90
drive$ = CHR(i)
path$ = drive$ + ':\Process.cd'
FileExist("path$","exist")
If (exist=1) Then
Page("page 2")
Return()
End
Next i
Message("No CD To Drive ","")
Exit()
Path$ = drives$+':\\'+'Rahnama\Arshad89_azad.pdf'
Browser("Browser","Path$")

ودر خودش هیچ مسیری ندادم ولی کا نمی کنه

loo30fer · Jan 4, 2011

چون کل دستوراتون یکجورایی اشتباه بود مثلا بعد از دستور رفتن به صفحه 2 شما از دستور Return استفاده کردین که این باعث میشه از خواندن بقیه دستورات صرف نظر بشه و فکر کنم شما میخواستین جلوی اجرای حلقه رو بگیرین که باید از دستور Break استفاده میکردین و بعد از دستور پیغام دستور Exit رو داده بودین که دیگه نمیذاشت اون PDF شما با Browser باز بشه , اسم متغیر $drive رو تو Path دوم اشتباه نوشته بودین و شما فکر کنم شی Browser رو توی صفحه دوم قرار دادین پس باید بهش اضافه میکردین که Browser شما توی صفحه دوم قرار داره ضمنا من اشکالاتون رو گفتم که باز به این مشکل مواجه نشین و اشکالات خودتون رو بدونید با این حال کدتون رو تغییر دادم :

کد:

For i=68 To 90
  drive$ = CHR(i)
  Path$ = drive$ + ':\Process.cd'
  FileExist("Path$","exist")
  If (exist=1) Then
    Page("Page 2")
    Path$ = drive$+':\\'+'Rahnama\Arshad89_azad.pdf'
    Browser("Page 2::Browser","Path$")
    Break()
  Else
    If (i=90) Then
      Message("No CD To Drive ","")
      Exit()
    End
  End
Next i