Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.21;
Скачать: 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 вся ветка

Текущий архив: 2002.02.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
14-66661
Snake2000
2001-12-31 16:16
2002.02.21
НОВЫЙ ГОД СКОРО!


1-66509
serjant
2002-02-06 08:54
2002.02.21
полосы в QuickRep


1-66515
Дремучий
2002-01-25 13:39
2002.02.21
Маскимизация окна с BorderStyle = bsDialog


3-66448
AndreyP
2002-01-28 12:09
2002.02.21
БД Clarion


14-66648
petr_v_a
2001-12-29 21:34
2002.02.21
а мы тут пьем .....