| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

откуда следующие функции [D6]

Sergey V. Shadrin ©   (2002-10-02 14:03:00) 

CreateProgmanGroup и CreateProgmanItem?
в хелпе их нашел, а откуда они - не указано...

---

Sergey V. Shadrin   (2002-10-08 08:36:00) [1]

так. если мне надо создать группу тест чего надо сделать?

var
?
begin
?
CreateProgManGroup(?,"test");


что-то я не могу понять что за зверь такой TDdeClientConv. что туда передавать.

---

Игорь Шевченко   (2002-10-02 16:59:00) [2]

Приношу свои извинения, ошибся. Нету этих функций в 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

Еще раз извиняюсь :-)

---

Игорь Шевченко   (2002-10-02 16:47:00) [3]

Как использовать - это, плз, в google. У меня готового примера нет, а создавать пример, откровенно говоря, некогда.

---

Sergey V. Shadrin   (2002-10-02 16:38:00) [4]

> Игорь Шевченко © (02.10.02 16:32)

религия позволяет танцевать с бубном, если покажут как. в смысле как их использовать для поставленной задачи. или как ее реализовать по другому.

---

Игорь Шевченко   (2002-10-02 16:32:00) [5]

Sergey V. Shadrin (02.10.02 16:27)

Если религия не запрещает, то можно...

---

Sergey V. Shadrin   (2002-10-02 16:27:00) [6]

2 Игорь Шевченко:
И как-то их в дельфи можно использовать?

---

Игорь Шевченко   (2002-10-02 16:24:00) [7]

Функции эти из setupdll.dll

---

Sergey V. Shadrin   (2002-10-02 15:38:00) [8]

так. а можно ли их использовать для создания группы программ и ярлыков в start->programm

---

MBo   (2002-10-02 15:20:00) [9]

сдается, что эти функции устаревшие, наследие Win3X

---

Внук   (2002-10-02 15:16:00) [10]

Да, похоже, ее прототип не объявлен в модулях Delphi. Значит, либо придется обходиться без нее, либо объявлять самому.

---

Sergey V. Shadrin   (2002-10-02 15:12:00) [11]

делаю uses shellapi, компилю. говорит что не декларированно это безобразие :(

---

Sergey V. Shadrin   (2002-10-02 15:12:00) [12]

в смысле эти функции. хотя другие api функции пашут.

---

Внук   (2002-10-02 14:07:00) [13]

Из WinAPI, или что имеется здесь в виду?

---

Наверх