PDA

نسخه کامل مشاهده نسخه کامل : ساخت سیدی اموزشی با دلفی (فوری)


omid_matrix3
12-09-2008, 15:45
سلام به همه دلفی کاران عزیز
من می خوام یه سیدی اموزشی با دلفی بسازم و از همه این اموزش کلیپ تهیه کردم
حالا مشکلم اینکه تو سی دی چه جوری اینهارو مسیر دهی کنم
مثلا کلیپ در لینک
F:\amozesh delphi\13.avi زیر هست حالا که می خوام تو سیدی قرار بدم بجای \:F چی قرار بدم

با Multimedia Builder 4.8 ;کار میکردم این دستور <SrcDir>\ کارم رو راه می انداخت اما با دلفی؟
SrcDir>\amozesh delphi\13.avi>
KhepeleSibilo
12-09-2008, 15:54
ExtractFilePath(Application.ExeName);
omid_matrix3
12-09-2008, 17:33
میشه یه مثال بزنید
KhepeleSibilo
12-09-2008, 19:42
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
mojtaba-design
13-09-2008, 04:53
البته از این هم می شه :
getcurrentdir
omid_matrix3
13-09-2008, 13:55
ممنون از راهنمایی تون KhepeleSibilo ,mojtaba-design
اما باز نتونستم
کارایی که برای پخش کلیپ می کنم
1-بعد از ایجاد فرم از قسمت system یک mediapleyer1 میزارم تو فرم
2- روmediapleyer1 کلیک می کنم از منوی Object Inspector از FileName مسیر فایل رو انتخاب میکنم
F:\amozesh delphi\13.avi
3-AutoOpen را True می کنم
یا یک Button1 انتخاب می کنم روش کلیک می کنم و کد mediaplayer1.play; را می نویسم
حالا من این کدا را کجا قرار بدم و نیز uses خواصی هم فراخوانی بکنم
omid_matrix3
13-09-2008, 21:58
MediaPlayer1.FileName:=ExtractFilePath(Application .ExeName)+'amozesh delphi\13.avi';
MediaPlayer1.AutoOpen:=true;
MediaPlayer1. Open;
MediaPlayer1.Play;