Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получение пути к программе, связанной с расширением [D5, Win95/98, NT4, Win2k]

yozhik © (2002-05-28 14:07:00)
Уважаемые мастера, подскажите плз как получить полный путь к программе,связанной с конкретным расширением, без использования реестра?

yozhik (2002-05-28 14:43:00) [1]
причем если ставлю файл с другим расширением, например rtf, все работает, а с xls - не хочет.

MBo (2002-05-28 14:42:00) [2]
код точно также, как у меня, написан, или с кавычками все та же проблема?

yozhik (2002-05-28 14:38:00) [3]
ну тогда я не знаю, но уменя все тоже "C:\Program"

MBo (2002-05-28 14:33:00) [4]
у меня работает
sCmd := "D:\test.xls";
GetMem(Buf,255);
if FindExecutable(PChar(sCmd),nil,Buf)<=32 then RaiseLastWin32Error;
label1.caption:= "xls -> "+Buf;

yozhik (2002-05-28 14:27:00) [5]
Buf: PChar

Song (2002-05-28 14:26:00) [6]
а тип Buf какой?
SDir не нужен, я думаю

yozhik (2002-05-28 14:14:00) [7]
sCmd := D:\test.xls; sDir := ""C:\Program Files\Microsoft Office\Office\""; GetMem(Buf,255); if FindExecutable(PChar(sCmd),PChar(sDir),Buf)<=32 then RaiseLastWin32Error; sCmd := "xls -> "+Buf;

Может я что-то не так пишу но выдает следуюющее "xls -> C:\Program", в чем ошибка??

Song (2002-05-28 14:11:00) [8]
FindExecutable()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »