The extra slash in the script shows up in the error box

HTML Executable
1

Tech support helped me with the script below.
They told me there was a “missing slash”

As below, but when I added the slash as instructed, it showed up
in the error box. I have attached a jpg of the Error box to this post.

So I don’t know why the script below is not finding the file.
I’ve used it as in the past, but now it’s not working in version 4 of the program.

Any help will be appreciated.
The code below produced an Error as in the attached .jpg
showing how the extra \ before “Resources” is now in the error.

There was a missing \ in your script below at the beginning of “\Resources\Unit_01”

procedure StartVideo(Filename: String);
var
EbookPath, MyProgram: String;
begin
// Read the path to the folder that contains our ebook .exe
EbookPath := GetGlobalVar(“HEPublicationPath”, “”);
// Construct the path to the mp4 file we want to launch.
// Video mp4 files are located in the [Resources\Unit_01] subfolder.
MyProgram := EbookPath + “\Resources\Unit_01” + Filename + “.mp4”;
// Execute the program!
if OpenFile(MyProgram, “”, SW_SHOWNORMAL) < 32 then
begin
MessageBox("Unable to execute the external file: " + MyProgram, “Ebook Error”, MB_OK

+MB_ICONERROR);
exit;
end;
end;

2

Try this:

procedure StartVideoUnit01(Filename: String);
var
EbookPath, MyProgram: String;
begin
// Read the path to the folder that contains our ebook .exe
EbookPath := IncludeTrailingPathDelimiter(GetGlobalVar("HEPublicationPath", ""));
// Construct the path to the mp4 file we want to launch.
// Video mp4 files are located in the [Resources\Unit_01] subfolder.
MyProgram := EbookPath + "Resources\Unit_01\" + Filename + ".mp4";               
// Execute the program!
if OpenFile(MyProgram, "",  SW_SHOWNORMAL) < 32 then
begin                                                     
  MessageBox("Unable to execute the external file: " + MyProgram, "Ebook Error", MB_OK  

+MB_ICONERROR);
  exit;
end;                   
end;