Скачать: CL | DM;

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

← →
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\"
Вопросы по почте

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c