Открыть файл из Delphi

procedure TfmOpen.btnOpenClick(Sender: TObject);
var
   str: string;
   i: integer;
begin
  str:=FileListBox.FileName;
  ShellExecute(0,'open',PChar(str),'','',SW_SHOW);
  fmProgress.ShowModal;
  Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  cmdLine: string;
  fName:   string;
  si: TStartupInfo;
  pi: TProcessInformation;
begin
  cmdLine := '"C:\Program Files\Windows Media Player\wmplayer.exe"  /Open "'; // строчку взял из реестра подраздел open/command в разделе имени программы
  fName   := '"D:\Каталог с файлами\Пример 1.avi"';
  // WinExec(PChar(cmdLine + fName), SW_SHOW);
 
  FillChar(si, SizeOf(si), #0);
  with si do begin
    cb := SizeOf(si);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_SHOW;
  end;
 
  if CreateProcess(
      nil,                    // lpApplicationName,
      PChar(cmdLine + fName), // lpCommandLine,
      nil,                    // lpProcessAttributes,
      nil,                    // lpThreadAttributes,
      True,                   // bInheritHandles,
      0,                      // dwCreationFlags
      nil,                    // lpEnvironment,
      nil,                    // lpCurrentDirectory,
      si,                     // lpStartupInfo,
      pi) then begin                    // lpProcessInformation
    WaitForSingleObject(pi.hProcess, INFINITE);
    CloseHandle(pi.hProcess);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
{$define WIDE} // если Unicode
var
  cmdLine, fName: {$ifdef WIDE}WideString{$else}string{$endif};
  si: TStartupInfo;
  pi: TProcessInformation;
begin
  cmdLine := '"C:\Program Files\Windows Media Player\wmplayer.exe" /Play '; // не тот глагол и лишняя кавычка
  fName   := '"D:\Каталог с файлами\1.Ану отдай мой каменный топор.MP3"'; // просто avi-шка очень долго открывается
  // WinExec(PChar(cmdLine + fName), SW_SHOW); // только для string
 
  FillChar(si, SizeOf(si), #0);
  with si do begin
    cb := SizeOf(si);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_SHOW;
  end;
 
  if {$ifdef WIDE}CreateProcessW{$else}CreateProcessA{$endif}(
      nil,                    // lpApplicationName,
      {$ifdef WIDE}pWideChar{$else}pChar{$endif}(cmdLine + fName), // lpCommandLine,
      nil,                    // lpProcessAttributes,
      nil,                    // lpThreadAttributes,
      True,                   // bInheritHandles,
      0,                      // dwCreationFlags
      nil,                    // lpEnvironment,
      nil,                    // lpCurrentDirectory,
      si,                     // lpStartupInfo,
      pi) then begin                    // lpProcessInformation
    WaitForSingleObject(pi.hProcess, INFINITE);
    CloseHandle(pi.hProcess);
  end;
end;

function GetFileNamefromLink(LinkFileName: string): string;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  FileInfo: TWin32FINDDATA;
  WidePath: array[0..MAX_PATH] of WideChar;
  Buff: array[0..MAX_PATH] of Char;
begin
  Result := '';
  if (fileexists(Linkfilename) = false) then
    exit;
  MyObject := CreateComObject(CLSID_ShellLink);
  MyPFile := MyObject as IPersistFile;
  MySLink := MyObject as IShellLink;
  StringToWideChar(LinkFileName, WidePath, SizeOf(WidePath));
  MyPFile.Load(WidePath, STGM_READ);
  MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
  Result := buff;
end // источник - DelphiWorld

begin
  str:=FileListBox.FileName;
  //ShellExecute(0,'open',PChar(str),'','nil',SW_SHOW);
  ShellExecute(0,'open','C:\Program Files\Light Alloy\LA.exe',PChar(str),nil,SW_SHOWNORMAL);
  fmProgress.ShowModal;
  Close;
end;