Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.031 c
1-66604           Tadeush               2002-02-06 13:04  2002.02.21  
Как развернуть строку.


3-66501           Dinara                2002-01-25 11:49  2002.02.21  
Упаковка БД


14-66658          DarkPark              2002-01-01 03:01  2002.02.21  
Грустно...


14-66647          Pat                   2001-12-28 13:47  2002.02.21  
Преподы прикалываются...


3-66496           RAVEN                 2002-01-28 15:29  2002.02.21  
Глюки ADO часть 1-ая