德尔福: How to set sound/image locations?

Question

如何有效地设置声音/图像位置，例如:

procedure TForm1.Button1Click(Sender: TObject); begin
begin
  PlaySound('C:\Users\username\Desktop\project\sfx\Sounds\ding.wav', 0, SND_ASYNC);
end;

类似:

procedure TForm1.Button1Click(Sender: TObject); begin
begin
  PlaySound('ding.wav', 0, SND_ASYNC);
end; 

每次我移动包含项目的文件夹时，声音似乎不再起作用，因为目录发生了变化。

Answer 1

您应该设置/声明相对于项目文件的位置。例如:

var lApplicationExecutablePath: String;
lApplicationExecutablePath := ExtractFilePath(ParamStr(0));
...
var lSoundFile: String;
lSoundFile := TPath.Combine(FolderName, 'sfx\ding.wav'); 

这样，无论应用程序安装在何处，您都可以并排获得所有需要的文件。