Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

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


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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.016 c
1-66577           vector                2002-02-05 19:20  2002.02.21  
Delphi начал тормозить


7-66688           VG                    2001-11-16 13:12  2002.02.21  
Помогите поставить ловушку на Hint


6-66640           Ihor                  2001-11-30 17:58  2002.02.21  
Версия ВинСок.


1-66521           Nina                  2002-02-06 10:46  2002.02.21  
TForm


1-66618           RUS1                  2002-02-04 08:51  2002.02.21  
Проблемы при создании ярлыка господа !!!!