Скачать: CL | DM;

генератор CLSID   Найти похожие ветки 

← →
snake1977   (2004-11-17 15:05) [0]

Здравсвуйте! В дельфи есть такая примочка, нажимаеш Ctr+Shift+G и генерируется идентификатор такойже как и идентификаторы в HKEY_CLASSES_ROOT\CLSID, но этот идентификатор статичен, а есть ли функция генерирующая этот CLSID ??

---

← →
Digitman ©   (2004-11-17 15:08) [1]

> этот идентификатор статичен


что за бред ?


> есть ли функция генерирующая этот CLSID


есть. именно она вызывается в конечном итоге, когда ты жмакаешь Ctr+Shift+G и дуешься опосля этого на какую-то там "статичность"

---

← →
snake1977   (2004-11-17 15:15) [2]

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

на данный момент я сделал как
Const myId:String="{E1844822-1144-4B60-8132-997A0693A03A}";

а как мне в программе его сгенерировать
т.е. например
MyId:String;
...
MyId:=GenId;
....

---

← →
Digitman ©   (2004-11-17 15:28) [3]

ты вообще-то по-русски-то можешь спросить, мол, мне нужно получить CLSID в ран-тайм программно ? мол, чаво вызывать-то для этого ? или это так сложно ? или я вообще не понял, что тебя столь озаботило ?

---

← →
snake1977   (2004-11-17 15:36) [4]

я вроде по русски спросил:
---а есть ли функция генерирующая этот CLSID ??
спасибо за "помощь" но нашел сам
ф-я из ComObj, CreateClassID

---

← →
Digitman ©   (2004-11-17 15:44) [5]

> нашел сам


"Спасение утопающих - дело рук самих утопающих" (С)

---

← →
Pentium133 ©   (2004-11-17 16:03) [6]

function GetUniqueString(const Default: string): string;
var
 LGuid: TGUID;
 LGuidStr: WideString;
 Created: Boolean;
begin
 try
   Created := False;
   SetLength(LGuidStr, StrGuidLen - 1);
   if (CoCreateGuid(LGuid) and $80000000) = 0 then
   begin
     if
       StringFromGUID2(LGuid, PWideChar(Pointer(LGuidStr)), StrGuidLen) <> 0
     then
       Created := True
   end;
   if Created then
     Result := LGuidStr
   else
     Result := Default
 except
   Result := Default
 end
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c