Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

понедельник, 23 апреля 2012 г.

OnClick WebBrowser

Автор: James D. Rofka
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure MyMessages(var Msg: TMsg; var Handled: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MyMessages;
end;

procedure TForm1.MyMessages(var Msg: TMsg; var Handled: Boolean);
var
  X, Y: Integer;
  document, E: OleVariant;
begin
  Handled := False;
  if (WebBrowser1 = nil) or (Msg.message <> WM_LBUTTONDOWN) then
    Exit;

  Handled := IsDialogMessage(WebBrowser1.Handle, Msg);

  if (Handled) then
  begin
    case (Msg.message) of
      WM_LBUTTONDOWN:
        begin
          X := LOWORD(Msg.lParam);
          Y := HIWORD(Msg.lParam);
//          document := WebBrowser1.document;
//          E := document.elementFromPoint(X, Y);
          ShowMessage('You clicked on:' + #10);// + E.outerHTML);
        end;
    end;
  end;
end;

пятница, 6 апреля 2012 г.

Ошибка Item not found при запуске Delphi XE

Ошибка возникает когда изменены переменные среды в windows и при этом у пользователя нет прав на запись в нее.


Можно полностью отключить отображение раздела библиотек из навигационной панели проводника Windows. Для того чтобы это сделать, выполните следующие действия:
Откройте редактор реестра;
Перейдите в раздел HKEY_CLASSES_ROOT\CLSID\{031E4825-7B94-4dc3-B131-E946B44C8DD5}\ShellFolder;
Нажмите правой кнопкой мыши на названии раздела ShellFolder и в контекстном меню выберите команду «Разрешения»;
В диалоговом окне «Разрешения для группы «ShellFolder»» перейдите на группу Администраторы и дайте ей полный доступ;
Щелкните два раза левой кнопкой мыши на параметре Attributes для изменения значения и измените значение с b080010d на b090010d.
Закройте редактор реестра и перезапустите процесс explorer.exe.

Переустанавливал W и при установке среды Delphi XE возникла ошибка, эта же причиной была не стандартная папка Temp в переменных среды. Необходимо просто открыть доступ пользователя к ней и все нормально работает)))
При изменении значений  с b080010d на b090010d начинает тормозить отладчик!