Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Вниз
откуда следующие функции Найти похожие ветки
← →
Sergey V. Shadrin (2002-10-02 14:03) [0]CreateProgmanGroup и CreateProgmanItem?
в хелпе их нашел, а откуда они - не указано...
← →
Внук (2002-10-02 14:07) [1]Из WinAPI, или что имеется здесь в виду?
← →
Sergey V. Shadrin (2002-10-02 15:12) [2]делаю uses shellapi, компилю. говорит что не декларированно это безобразие :(
← →
Sergey V. Shadrin (2002-10-02 15:12) [3]в смысле эти функции. хотя другие api функции пашут.
← →
Внук (2002-10-02 15:16) [4]Да, похоже, ее прототип не объявлен в модулях Delphi. Значит, либо придется обходиться без нее, либо объявлять самому.
← →
MBo (2002-10-02 15:20) [5]сдается, что эти функции устаревшие, наследие Win3X
← →
Sergey V. Shadrin (2002-10-02 15:38) [6]так. а можно ли их использовать для создания группы программ и ярлыков в start->programm
← →
Игорь Шевченко (2002-10-02 16:24) [7]Функции эти из setupdll.dll
← →
Sergey V. Shadrin (2002-10-02 16:27) [8]2 Игорь Шевченко:
И как-то их в дельфи можно использовать?
← →
Игорь Шевченко (2002-10-02 16:32) [9]Sergey V. Shadrin (02.10.02 16:27)
Если религия не запрещает, то можно...
← →
Sergey V. Shadrin (2002-10-02 16:38) [10]
> Игорь Шевченко © (02.10.02 16:32)
религия позволяет танцевать с бубном, если покажут как. в смысле как их использовать для поставленной задачи. или как ее реализовать по другому.
← →
Игорь Шевченко (2002-10-02 16:47) [11]Как использовать - это, плз, в google. У меня готового примера нет, а создавать пример, откровенно говоря, некогда.
← →
Игорь Шевченко (2002-10-02 16:59) [12]Приношу свои извинения, ошибся. Нету этих функций в setupdll.dll
Вместо них теперь рекомендуют следующую замену:
function CreateProgManGroup(DDEClient: TDdeClientConv;
strGroup: string): Boolean;
{By Andy Cooper - 100622.1041@COMPUSERVE.COM}
var
pstrCmd : array[0..255] of char;
begin
try
StrPCopy (pstrCmd, Format("[CreateGroup(%s)]", [strGroup]) + #13#10);
Result := DDEClient.ExecuteMacro(pstrCmd, False);
except
Result := False;
end; {try}
end;
function CreateProgManItem(DDEClient: TDdeClientConv;
strGroup, strItem, strFile : string) : Boolean;
{By Andy Cooper - 100622.1041@COMPUSERVE.COM}
var
pstrCmd : array[0..255] of char;
begin
try
StrPCopy (pstrCmd, Format("[ShowGroup(%s, 1)]",
[strGroup]) + #13#10);
DDEClient.ExecuteMacro(pstrCmd, False);
StrPCopy (pstrCmd, Format("[ReplaceItem(%s)]",
[strItem]) + #13#10);
DDEClient.ExecuteMacro(pstrCmd, False);
StrPCopy (pstrCmd, Format("[AddItem(%s,%s" + ",,)]",
[strFile,strItem]) + #13#10);
Result := DDEClient.ExecuteMacro(pstrCmd, False);
StrPCopy (pstrCmd, Format("[ShowGroup(%s, 1)]",
[strGroup]) + #13#10);
DDEClient.ExecuteMacro(pstrCmd, False);
except
Result := False;
end; {try}
end;
Источник: http://www.jpl.nu/~magnus/delphiqa/articles/0037.html
Еще раз извиняюсь :-)
← →
Sergey V. Shadrin (2002-10-08 08:36) [13]так. если мне надо создать группу тест чего надо сделать?
var
?
begin
?
CreateProgManGroup(?,"test");
что-то я не могу понять что за зверь такой TDdeClientConv. что туда передавать.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
