Получение пути к программе, связанной с расширением

← →
yozhik (2002-05-28 14:07) [0]

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

← →
Song © (2002-05-28 14:11) [1]

FindExecutable()

← →
yozhik (2002-05-28 14:14) [2]

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:26) [3]

а тип Buf какой?
SDir не нужен, я думаю

← →
yozhik (2002-05-28 14:27) [4]

Buf: PChar

← →
MBo © (2002-05-28 14:33) [5]

у меня работает
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:38) [6]

ну тогда я не знаю, но уменя все тоже "C:\Program"

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

← →
yozhik (2002-05-28 14:43) [8]

причем если ставлю файл с другим расширением, например rtf, все работает, а с xls - не хочет.

Получение пути к программе, связанной с расширением Найти похожие ветки