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

Вниз

откуда следующие функции   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.016 c