简单问题,关于文件名 sorry it'smediaplayer1.filename :=filename; 当mediaplayer1.play 时,找不到文件名 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 应该是这样,filename: string filename:=ExtractFilePath('project1.exe')+'fff\start.avi'; 还少filename:=ExtractFilePath('project1.exe')+'\fff\start.avi'; 还少filename:=ExtractFilePath('project1.exe')+'\fff\start.avi'; 我想你的start.avi和project1.exe在同一个目录下,可用以下方法得到全路径:var path:string; myfilename:string;begin path:=extractfilepath(application.exename); if copy(path,length(path),1)<>'\'then path:=path+'\'; myfilename:=path+'start.avi'; mediaplayer1.filename:=myfilename;end;这样,你的mediaplayer1.应该能找到文件名了。-----------------------风过西窗客渡舟船无觅处年年一川新草遥看却似旧 delphi 怎样将一张图片进行分割,然后做成按钮? 为什么我用DateTimePicker1之后不能显示的月份都有超出50的呀? 这样的程序在win7下要怎么改? 求助:C/S 两层架构,广域网用户端与主机失去连接! 汇驿的朋友看过来,不是的请勿入 免费电影频道 在线等待,如何用MediaPlayer连续播放checklistbox里面的文件?谢谢 有没有什么事件或方法 在DBGRID中当某一行的某一个字段被修改时触发! delphi对excel的操作 有没有办法知道一个汉字是否有繁体? ===关于OE的简单问题=== 高分!!邮件服务器
filename: string filename:=ExtractFilePath('project1.exe')+'fff\start.avi';
filename:=ExtractFilePath('project1.exe')+'\fff\start.avi';
filename:=ExtractFilePath('project1.exe')+'\fff\start.avi';
path:string;
myfilename:string;
begin
path:=extractfilepath(application.exename);
if copy(path,length(path),1)<>'\'then
path:=path+'\';
myfilename:=path+'start.avi';
mediaplayer1.filename:=myfilename;
end;这样,你的mediaplayer1.应该能找到文件名了。
-----------------------
风过西窗客渡舟船无觅处
年年一川新草遥看却似旧