Открытие файла

← →
Ivan L (2003-04-13 22:51) [0]

Да забыл спросить, как, к примеру, при нажатии на кнопку открыть файл(запустить).

← →
ATR (2003-04-13 23:36) [1]

ShellExecute
WinExec

← →
Ivan L (2003-04-14 17:48) [2]

ATR, будь хорошим человеком. Если ен трудго распиши эти функции поподробнее, а то такому чайнику, как я, не все понятно.

procedure TMainForm.Buton1Click(Sender: TObject);
begin
case ShellExecute(Handle, "open", <имя>, nil, <путь>, SW_SHOWNORMAL) of
0 : MessageBox(Handle, PChar("Операционная система исчерпала память или ресурсы!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
ERROR_FILE_NOT_FOUND : MessageBox(Handle, PChar("Указанный файл не был найден!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
ERROR_PATH_NOT_FOUND : MessageBox(Handle, PChar("Указанный путь не был найден!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
ERROR_BAD_FORMAT : MessageBox(Handle, PChar("EXE-файл поврежден!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_ACCESSDENIED : MessageBox(Handle, PChar("Операционная система лишенна доступа к указанному файлу!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_ASSOCINCOMPLETE : MessageBox(Handle, PChar("Ассоциация по имени файла неполна или недействительна!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_DDEBUSY : MessageBox(Handle, PChar("Операция DDE не закончена, потому что другие операции DDE обрабатывались!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_DDEFAIL : MessageBox(Handle, PChar("Операция DDE потерпела неудачу!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_DDETIMEOUT : MessageBox(Handle, PChar("Операция DDE не могла быть закончена, потому что время обработки запроса истекло!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_DLLNOTFOUND : MessageBox(Handle, PChar("Указанная DLL-библиотека не была найдена!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_NOASSOC : MessageBox(Handle, PChar("Не имеется никакого приложения, связанного с данным расширением файла!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_OOM : MessageBox(Handle, PChar("Не достаточно памяти, для завершения операции!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
SE_ERR_SHARE : MessageBox(Handle, PChar("Ошибка совместного доступа!"), AppTitle, mb_OK + mb_SetForeground + mb_IconError);
end;
end;

Открытие файла Найти похожие ветки