| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по ShellExecute [D6]
wen © (2003-02-03 17:01:00)Всем добрый день! Подскажите, пожалуйста, что у меня не правильно,в приведенном коде ShellExecute не открывает вордовские файлы и выдает ошибку 8 ????
procedure TForm1.Button1Click(Sender: TObject);
var
h: hwnd;
e:string;
f: pChar;
begin
if OpenDialog1.Execute then
begin
f:= pchar(OpenDialog1.FileName);
if ShellExecute(h, "open", f, nil, nil, SW_SHOWNORMAL) < 32 then
begin
e:=inttostr(shellExecute(h, "open", f, nil, nil, SW_SHOWNORMAL)) ;
ShowMessage(e)
end;
end;
end;
wen (2003-02-03 23:03:00) [1]Как ни странно :) но последней пример работает, спасибо всем кто отвечал на мой вопрос, отдельное спасибо mukha, я уже не знал че делать
mukha (2003-02-03 21:42:00) [2]Странно, всё это...
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Title:="Открытие документа";
OpenDialog1.Filter:="Текстовые файлы|*.txt;*.doc";
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName); // Указать нужную директорию
if OpenDialog1.Execute then
if ShellExecute(Application.MainForm.Handle,nil,PChar(OpenDialog1.FileName),nil,nil,SW_ShowNormal)<32 then
ShowMessage("Ошибка при открытиии файла "+OpenDialog1.FileName);
end;
Clickmaker (2003-02-03 19:15:00) [3]FindExecutable + CreateProcess
Wen (2003-02-03 18:24:00) [4]Самое смешное что файлы MSAccess открываются :)
Wen (2003-02-03 18:16:00) [5]Бил, может и не прав, но .doc у меня зарегистрирован, reboot не помог, может у кого-то есть другой пример открытия файла из Opendialog????
Sasha9 (2003-02-03 18:13:00) [6]а вот цитата из Win32 Programmer"s Reference:
SE_ERR_OOM There was not enough memory to complete the operation.
в модуле shellapi(откуда сама ShellExecute) константа SE_ERR_OOM=8
Clickmaker (2003-02-03 17:56:00) [7]> Sasha9
Это цитата из файла winerror.h что в Visual Studio. Так что твое замечание я переадресую Билу :)
Sasha9 (2003-02-03 17:51:00) [8]2Clickmaker
не storage, а memory (см. хелп по ShellExecute в WinAPI)
Sasha9 (2003-02-03 17:50:00) [9]8 - out of memory
иногда ребут помогает
может у тебя тип .doc не зарегестрирован
Clickmaker (2003-02-03 17:48:00) [10]Ошибка 8 расшифровывается как "Not enough storage is available to process this command", а если проще, то памяти ей не хватает...
wen (2003-02-03 17:34:00) [11]Попробывал, но дело в том, что не работает даже такая команда:
shellExecute(h, "open", "d:\1.doc", nil, nil, SW_SHOWNORMAL)
БИС (2003-02-03 17:15:00) [12]я не знаю причины, но могу сказать, что
какое-то подозрительное действие
f:= pchar(OpenDialog1.FileName);
лучше скопируй в строку обычную и при вызове
делай преобразование phar
| |
