ShellExecute ???????????

← →
VP (2003-05-26 11:29) [0]

Приветствую.
В общем
ShellExecute(Handle, "open", "myfile.doc", nil, nil, SW_SHOWNORMAL);
Работает(ХР).
Перенес программу на другие машины (98, NT) Не работает, или открывает ворд но тот в свою очередь выдает ошибку и закрывается)
Что бы это значило?

← →
code.x (2003-05-26 11:40) [1]

А что возвращает сама функция?

← →
jack128 © (2003-05-26 13:45) [2]

а если указывать полный путь к файлу, то работает??

← →
VP (2003-05-26 13:50) [3]

Так я и указываю полный путь типа
PChar(getcurrentdir + "\мойфайл.doc")
Кстати проблема снимается, когда я в WindowsCommander принудительно ассоциирую файл с Winword.
Но ведь в системе он и до этого был ассоциирован и открывался двойным кликом...

← →
clickmaker © (2003-05-26 14:01) [4]

ShellExecute(Handle, nil, Path + "\myfile.doc", nil, nil, SW_SHOWNORMAL);
И проверяй, что говорит GetLastError после вызова

← →
Игорь Шевченко © (2003-05-26 14:17) [5]

>Path + "\myfile.doc"

PChar(Path + "\myfile.doc")

← →
jack128 © (2003-05-26 15:18) [6]

> проверяй, что говорит GetLastError после вызова

Только не Getlasterror, а сам ShellExecute

← →
Intell © (2003-05-26 18:09) [7]

может глупо упоминать, но добавляем ShellAPI в USES

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, "open", "C:\мои документы\myfile.doc", nil, nil, sw_ShowNormal);
end;

ShellExecute(Application.Handle, "open", "C:\мои документы\myfile.doc", nil, "C:\мои документы\", sw_ShowNormal);

Директорию не забываем указывать....

ShellExecute(Application.Handle, "open", "C:\мои документы\myfile.doc", nil, "C:\мои документы\", sw_ShowNormal);

Директорию не забываем указывать....

Удалено модератором
Примечание: Offtopic

ShellExecute ??????????? Найти похожие ветки