大佬教程收集整理的这篇文章主要介绍了在 Delphi 中更改路径,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在处理一个项目,我需要在 Delphi 中播放文件中的视频。我经常在家和学校工作,我遇到的问题是,在家里,我的 USB 是驱动器“J”,而在学校,我的 USB 是驱动器“D”。
我每次都手动去更改它。 Delphi 有没有办法自动从任何地方获取视频?
每个扇区都有一个用于选择扇区的图像组件。
*注意,我知道我可以在 Delphi 中搜索特定文件的位置,但是我有超过 24 个不同的地方需要播放不同的视频,所以搜索可能是我最后的手段,除非我使用程序并设置每个扇区的常量以区分它们。
目前的代码如下:
procedure TtForm.imgSector1Click(Sender: TObject);
begin
//Variables,this is for initializing them when I create them later.
//Procedures
SectordeSELEct; //Procedure to turn all sector borders white
// VIDeo
windowsMediaPlayer1.Controls.stop;
windowsMediaPlayer1.URL := 'J:\IT\PAT\phase 2\VIDeos\Footage1.mp4'; //Where my problem lIEs
windowsMediaPlayer1.Controls.Play;
// Sector Info. The memos and Rich edits
redSectorInfo.lines.Clear;
redSectorInfo.lines.Add('');
// Sector. HighlighTing the sector borders surrounding the sector
SectorBordr1.brush.color := clGreen;
Sectorborder10.brush.color := clGreen;
end;
我建议在您的应用程序的 UI 中添加一个 TEdit 控件,以便您指定当前运行该应用程序的机器上文件的基本驱动器/路径。然后,您的代码可以在运行时构造相对于该基本路径的单个文件路径。不要在代码中使用硬编码路径。
然后您可以将该基本路径保存到您创建的新项中的 Windows 注册表中,即 HKEY_CURRENT_USER\Software\MyApp
。或者,您可以将路径保存在 Windows 用户配置文件的子文件夹中创建的配置文件(INI、XML、JSON 等)中,例如 %APPDATA%\MyApp
。每次运行应用程序时,您的代码都可以在该基本路径中读取。
如果文件存储在 USB 驱动器上,另一种解决方案是在运行时简单地枚举可用驱动器,例如使用 GetLogicalDriveStrings()
。对于每个驱动器,将给定文件的相对路径附加到它的末尾,然后检查该文件是否存在,例如使用 FileExists()
。如果是这样,您现在知道在下一次运行应用程序之前要为所有文件使用哪个驱动器(您可以保存运行之间的驱动器路径,如上所述)。如果未找到该文件,请移至下一个驱动器。
在命令行上添加一个参数怎么样?
开始
D:\myfolder\myfile D
或
开始
J:\myfolder\myfile J
GUI 文件可以接受参数。使用以下代码捕获它:
DriveLetter := ParamStr(1);
以上是大佬教程为你收集整理的在 Delphi 中更改路径全部内容,希望文章能够帮你解决在 Delphi 中更改路径所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。