Платные хостинги     Раскрутка сайта     Книги по программированию

OleVariant в Delphi

- Ни чё не понял... Вот к примеру модуль ProjectX.dpr - все работает: Код program ProjectX;uses Windows, ComObj, ActiveX;const CLASS_ShellWindows: TGUID = '{9BA05972-F6A8-11CF-A442-00A0C90A8F39}';procedure IEInfo();var SW:IDispatch;    i:integer;    IE:HWND;    CN:array [0..1024] of char;    CName:string;//    LName:WideString;begin CoInitialize(nil); SW:=CreateComObject(CLASS_ShellWindows) as IDispatch; for i:=Variant(SW).Count-1 downto 0 do  begin   IE:=Variant(SW).Item(i).HWND;   if IE<>0 then    begin     CName:=Copy(CN,0,GetClassName(IE,CN,1024));     if CompareString(LOCALE_SYSTEM_DEFAULT,NORM_IGNORECASE,PChar(CName),Length(CName),'IEFrame',7)=2 then      begin       //...       //LName:=Variant(SW).Item(i).LocationName;       //...      end;    end;  end;end;begin IEInfo;end.highlightSyntax('delphiNiODcz','delphi');Ты-б код показал...

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD