Помогите с файлами (открытие файла из списка в соответствующем файлу приложению, через ShellExecute)

[SSSSSSSSSSSSSSS]

Сделал таким образом вывод имен файлов в listbox
SendMessage(Lst1.Handle,LB_DIR,0,in teger(pchar('D:\документы\*.*')));
Можно ли сделать так что бы по нажатию кнопки файл из списка открывался в стандартной для него программе(word, блокнот и т.д)????

[tsar_]

Ну ShellExecute открывает файлы в ассоциированных приложениях...

[SSSSSSSSSSSSSSS]

Пробовал так, не работает
Shellexecute(Handle,'open',PAnsiCha r(Lst1.Items.Strings[Lst1.ItemIndex]),nil,nil,SW_SHOW);
не подскажете что может быть не так?

[tsar_]

Выкладывай проект...

[SSSSSSSSSSSSSSS]

вот ссылка на программу
https://cloud.mail.ru/public/Kiyf/DQK4RKZkm

[min@y™]

вот ссылка на программу

да нафига? посмотри, что возвращает функция Shellexecute().

function GetShellExecuteError(const ErrorCode: Integer; const FileName: string = ''): string;
var
 FN:string;
begin
{      Value	                             Meaning
 0              	The operating system is out of memory or resources.
 ERROR_FILE_NOT_FOUND	The specified file was not found.
 ERROR_PATH_NOT_FOUND	The specified path was not found.
 ERROR_BAD_FORMAT	The .EXE file is invalid (non-Win32 .EXE or error
                        in .EXE image).
 SE_ERR_ACCESSDENIED	The operating system denied access to the specified file.
 SE_ERR_ASSOCINCOMPLETE	The filename association is incomplete or invalid.
 SE_ERR_DDEBUSY	        The DDE transaction could not be completed because other
                        DDE transactions were being processed.
 SE_ERR_DDEFAIL	        The DDE transaction failed.
 SE_ERR_DDETIMEOUT	The DDE transaction could not be completed because the
                        request timed out.
 SE_ERR_DLLNOTFOUND	The specified dynamic-link library was not found.
 SE_ERR_FNF	        The specified file was not found.
 SE_ERR_NOASSOC	        There is no application associated with the given
                        filename extension.
 SE_ERR_OOM	        There was not enough memory to complete the operation.
 SE_ERR_PNF	        The specified path was not found.
 SE_ERR_SHARE     	A sharing violation occurred.}

 Result:='';
 FN:='';
 if FileName<>''
  then FN:=' '+FileName;
 case ErrorCode of
  {0                      }  0 : Result:='Системе не хватает памяти или ресурсов для выполнения операции';
  {SE_ERR_FNF             }  2 : Result:='Файл'+FN+' не найден.';
  {SE_ERR_PNF             }  3 : Result:='Путь к файлу'+FN+' не найден.';
  {SE_ERR_ACCESSDENIED    }  5 : Result:='Нет доступа к файлу'+FN+'.';
  {SE_ERR_OOM             }  8 : Result:='Недостаточно памяти для выполнения операции.';
  {ERROR_BAD_FORMAT       } 11 : Result:='Файл'+FN+' не является приложением Win32 или повреждён.';
  {SE_ERR_SHARE           } 26 : Result:='Ошибка при совместном доступе к файлу'+FN+'.';
  {SE_ERR_ASSOCINCOMPLETE } 27 : Result:='The filename association is incomplete or invalid.';
  {SE_ERR_DDETIMEOUT      } 28 : Result:='The DDE transaction could not be completed because the request timed out.';
  {SE_ERR_DDEFAIL         } 29 : Result:='Транзакция DDE не может быть выполнена.';
  {SE_ERR_DDEBUSY         } 30 : Result:='Транзакция DDE не может быть выполнена, т.к. выполняется другая транзакция DDE.';
  {SE_ERR_NOASSOC         } 31 : Result:='Файлу'+FN+' не сопоставлено приложение для его открытия.';
  {SE_ERR_DLLNOTFOUND     } 32 : Result:='Не найдена необходимая динамическая библиотека (DLL).';
  1,4,6,7,9,10,12..25          : Result:='Ошибка при работе с файлом'+FN+'.';
 end;//case
end;

[min@y™]

а ещё ловчей - во:

const
  MAX_MESSAGE_SIZE = 512;

function GetErrorMessage(const GetLastError_CODE: DWORD): string;
var
  p: pchar;
begin
  GetMem(p, MAX_MESSAGE_SIZE);
  FillChar(p^, MAX_MESSAGE_SIZE, 0);
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
                nil,
                GetLastError_CODE,
                0, p, MAX_MESSAGE_SIZE - 1, nil);
  Result:= p;
  FreeMem(p, MAX_MESSAGE_SIZE);
end;

procedure ShowLastError;
begin
  MessageBox(0, PChar(GetErrorMessage(GetLastError())), 'Shit happens!',
             MB_OK + MB_ICONSTOP);
end;

[SSSSSSSSSSSSSSS]

блин, мы только начали это проходить и не получается разобраться, можешь просто код написать как открывать файлы

[min@y™]

блин, мы только начали это проходить и не получается разобраться, можешь просто код написать как открывать файлы

ну охренеть теперь! А вот это, типа, проходили, да?

SendMessage(Lst1.Handle, LB_DIR, 0, integer(pchar('D:\документы\*.*')));

проехали!

[SSSSSSSSSSSSSSS]

нет, на по факту мало что объясняют поэтому и приходится пытаться искать и разбираться самому в интернете