запуск приложение

[mavlon_m]

как запустить другой приложение через codegear 2009, на пример файл .doc

ShellExecute(Handle,nil,pchar(Extra ctFilePath(Application.ExeName)+'1. doc') ,nil, nil, SW_SHOW);

не работает

[[MoNAMur]]

ShellExecute(0, 'open', PChar('путь к файлу'), nil, nil, SW_SHOW);

смотрим на 1 и 2 параметры и дзенствуем

[ych_del]

> ShellExecute(Handle,nil,pchar(Extra ctFilePath(Application.ExeName)+'1. doc') ,nil, nil, SW_SHOW);

После этого сделай вот так:
ShowMessage(SysErrorMessage(GetLast Error));

Возможно, у тебя путь кривой (это к примеру).

> смотрим на 1 и 2 параметры и дзенствуем

Да ладно - с параметрами у Мавлона всё ровно, его вариант вполне рабочий, не надо паники (:

[[MoNAMur]]

1) ExtractFilePath(Application.ExeName ) лучше заменить на extractfilepath(paramstr(0))

2)

Сообщение от ych_del

Да ладно - с параметрами у Мавлона всё ровно, его вариант вполне рабочий, не надо паники (:

первый параметр - можно и оставить как есть, а вот вторым мы собственно говорим что делать.
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx rtfm

[Аватар]

Сообщение от [MoNAMur]

ExtractFilePath(Application.ExeName ) лучше заменить на extractfilepath(paramstr(0))

Чем лучше?

[[MoNAMur]]

xD писать короче, выглядит не хуже, а на выходе тоже. так почему не использовать то что быстрее написать))
ну и у меня бывает такое что Application.ExeName выдает мне дос путь с символами "~", а вот paramstr(0) меня еще ни разу не подводила.
правда тут есть подводный камень - если в ярлыке на программу указать рабочую директорию, а в объекте только exe файл, и запустить через ярлык, то тогда результаты неправильные должны быть. Но кто в здравом уме такое сотворит?

[Пепел Феникса]

у вас тут полный путь поидее, причем тут рабочая директория?

[Аватар]

у меня бывает такое что Application.ExeName выдает мне дос путь с символами "~", а вот paramstr(0) меня еще ни разу не подводила.

В Forms вся разница

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

[ych_del]

Сообщение от [MoNAMur]

1) ExtractFilePath(Application.ExeName ) лучше заменить на extractfilepath(paramstr(0))

2)
первый параметр - можно и оставить как есть, а вот вторым мы собственно говорим что делать.
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx rtfm

win32.hlp:
> The lpOperation parameter can be NULL. In that case, the function opens the file specified by lpFile.

msdn:
> The default verb is used, if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.

По факту, гражданину требуется (как я понимаю) именно выполнить действие по умолчанию для файла указанного типа. Ради интереса можешь поставить эксперимент: для любого расширения в реестре переименовать HKCR\[type]\shell\open на, допустим, zopen, и посмотреть, что получится. Nil в данном случае рулит.

[ych_del]

Сообщение от Аватар

Чем лучше?

Убираем Forms из uses и наслаждаемся сообщениями Application: Identifier unknown.