آموزش ساخت برنامه AutoRun به وسیله Delphi
مرحله اول- ساخت فرم:
1-ابتدا اندازه فرم خود را تعیین کنید:
انتخاب من:
Width: 500
Height: 360
2- برنامه فتوشاپ را باز کرده و طبق اندازه های فرم یک زمینه قشنگ برایش طراحی کنید.
3- یک کنترل Image به فرم در دلفی اضافه کنید و در قسمت مشخصات Picture را انتخاب و سپس مسیر عکس را که طراحی کرده اید را بدهید:
http://www.poyeshsoft.com/images/auto1.gif
4- سپس خاصیت AutoSize کنترل Image را True کنید.
http://www.poyeshsoft.com/images/auto2.gif
5- خاصیت AutoSize فرم را زیر True کنید.
6- یک عنوان خوب برای فرم برنامه بنویسید در قسمت Caption
http://www.poyeshsoft.com/images/auto3.gif
7- به تعداد لینکهای فرمتان کنترل Image اضافه کنید و آنها را با طول و عرض نوشته ها یکسان کنید
http://www.poyeshsoft.com/images/auto4.jpg
8- خاصیت Cursor تمام Image های اضافه شده را بر روی crHandPoint قرار دهید
http://www.poyeshsoft.com/images/auto5.gif
مرحله دوم- کد نویسی:
قبل از هر کاری shellapi را در قسمت uses به برنامه اضافه کنید
http://www.poyeshsoft.com/images/auto6.gif
1- بر روی کنترل Image مربوط به خروج برنامه دبل کلید کنید سپس دستور زیر را نویسید.
Close;
یا
application.Terminate;
توجه در بین کلمات Begin و End بنویسید
2- بر روی کنترل Image مربوط به لینک برای اجرا کردن برنامه بروید سپس کد زیر را با دبل کلید کردن بروی کنترل بنویسید:
winexec('yourfile.exe',10);
توجه: آدرس فایل باید کامل باشد اگر قسط دارید که فایل از روی CD اجرا شود فقط نام فایل به همراه پسوند آن را بنویسید این روش به این معنی است که فایل در همان مسیر برنامه که فایل Autorun می باشد قرار دارد.
3- اگرمی خواهید که لینکتان یک پوشه را برای شما باز کند از این کد استفاده کنید:
shellexecute(handle, 'open', 'Your Folder \',
nil,
nil,
sw_show);
4- بر روی کنترل Image که مربوط به لینک به سایت هست بروید و کد زیر را بنویسید:
shellexecute(handle, 'open', 'http://www.YourWebSite.com',
nil,
nil,
sw_show);
اگر دوست دارید برنامه همراه با آهنگ باشد از این کد استفاده کنید
PlaySound('YourWaveFile.wav', 0, SND_LOOP + SND_ASYNC);
موفق و پیروز باشید
لینک دانلود سورس: http://www.poyeshsoft.com/download/S...Run-Delphi.rar
لینک دانلود PDF این مقاله: http://www.poyeshsoft.com/download/D...%20Autorun.pdf
نقل قول: آموزش ساخت برنامه AutoRun به وسیله Delphi
آیا امکان اتوماتیک اجرا شدن خود پروژه ای که می سازیم است؟ مثلا در داخل خود پروژه دستوراتی را بکار ببریم که در فلان وقت اجرا شود. یا اینکه خود پروژه به نحوی AutoRun هم باشد.
نقل قول: آموزش ساخت برنامه AutoRun به وسیله Delphi
نقل قول:
آیا امکان اتوماتیک اجرا شدن خود پروژه ای که می سازیم است؟ مثلا در داخل خود پروژه دستوراتی را بکار ببریم که در فلان وقت اجرا شود. یا اینکه خود پروژه به نحوی AutoRun هم باشد.
این دو مثالی گفتید کاملا با هم فرق میکنند.
در مورد اجرا شدن برنامه در زمان مشخص قبلا بحث شده در سایت جستجو کنید. یک راهش اضافه کردن EXE برنامه تان به لیست Schedule Tasks ویندوز است.
در مورد اینکه خود پروژه بر روی سی دی AutoRun باشد همین مثال هم خودش یک پروژه است دیگه. کافیست نام EXE پروژه را در یک Autorun.INI روی CD ذخیره کنید.
نقل قول: آموزش ساخت برنامه AutoRun به وسیله Delphi
با تشکر از دوست عزیز باید سوالم واضحتر بگم . من می خام با داشتن یک فایل exe در دلفی وبه محض کپی کردن در یکی از درایوها خود بخود اجرا شود. این امکان وجود دارد یا نه.:متفکر:
1 ضمیمه
نقل قول: آموزش ساخت برنامه AutoRun به وسیله Delphi
اگه منظورتون چیزی شبیه کار Worm هاست، میتونید اینکار رو به بعبارتی یک Hook کلی بر روی اعمال ویندوز انجام بدید. که هر زمانی در هر درایوی مثلا عمل کپی صورت گرفت فلان فایل EXE اجرا شود. کامپوننت های زیادی هم در این مورد وجود دارد. مثلا DirMonitor یا ATFileNotification. یک نمونه همراه با مثال آن را برایتان قرار داده ام. :
نقل قول: آموزش ساخت برنامه AutoRun به وسیله Delphi
در ضمن این موضوع دیگه ربطی به این تاپیک نداره. در یک تاپیک دیگه ادامه بدید.