Проблемы при создании ярлыка господа !!!!

← →
RUS1 (2002-02-04 08:51) [0]

Добрый день братья и сестры!!!
Имеем след. код:

procedure TGroupInstForm.RUN;
var Cmd :Array [0..255] of Char;
Name :String;
Macro:String;
BEGIN
Macro:=Format("[AddItem(%S,%S,%S,%S)]",
["""+DirEdit.Text+FilesName+""",
"""+FilesCaption+""",
"""+DirEdit.Text+FilesName+""","0"])+#13#10;
StrPCopy(Cmd,Macro);
DdeClientConv1.ExecuteMacro(Cmd,False);
DdeClientConv1.CloseLink;
END;

При помощи данного метода формируем ярлык через ProgMan.
Если в качестве директории (DirEdit.Text) выступает строка без пробелов в имени директорий то все хорошо а если есть пробел, например c:\Programm Files\ARM\, то при создании ярлыка не передается иконка файла для каторого ярлык делается!! В чем может быть дело!!! Ясно что в пробеле но что делать????

← →
alex_w (2002-02-04 09:33) [1]

Можно попробовать передать путь в формате 8.3 (Имена файлов как в DOS-e)
Для того чтобы преобразовать, можно использовать функцию API:
DWORD GetShortPathName( LPCTSTR lpszLongPath, // points to a null-terminated path string LPTSTR lpszShortPath, // points to a buffer to receive the null-terminated short form of the path DWORD cchBuffer // specifies the size of the buffer pointed to by lpszShortPath );

← →
RUS1 (2002-02-04 09:49) [2]

И как ее поюзать применительно ко мне ??

← →
Геральт (2002-02-04 09:55) [3]

У меня есть компонента (5Кб) для создания ярлыков, поэтому обращайся (mailto:ray_mail@mail.ru)

← →
RUS1 (2002-02-04 09:59) [4]

И как ету функцию (GetShortPathName) юзать господа?
чтото я не воткну никак...

← →
Севостьянов Игорь (2002-02-04 21:10) [5]

Все намного проще я думаю. В Win9x эта заморочка. Используй двойные кавыки для полного пути
"c:\Programm Files\ARM\"
Вопросы по почте

Проблемы при создании ярлыка господа !!!! Найти похожие ветки