unit RegistryExt;
{$R-,T-,H+,X+}
 
// скачан с
// [url]http://www.delphisources.ru/pages/faq/base/ex_tregistry.html[/url]
 
// подправлен
// [email]alexpac26@yandex.ru[/email] май 2012
 
interface
 
uses Registry, Classes, Windows, Consts, SysUtils;

WebBrowser1.ExecWB(OLECMDID_FIND, OLECMDEXECOPT_PROMPTUSER);

WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);

uses ActiveX;
 
***
 
procedure WebShowDialog(web:TWebBrowser; const command: byte = 1);
{ список кодов команд
  HTMLID_FIND = 1;

procedure CanvasTextShadow(Canvas:TCanvas; text:string;x,y:integer; sh_color: TColor = 0; sh_x: integer = 2; sh_y: integer = 1);
var c:TColor; st:TBrushStyle;
begin
  with Canvas do begin
  c:=Font.Color;
  st:=Brush.Style;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
  public
    { Public declarations }
    procedure DoMinimize(Sender: TObject);
  end;

procedure TForm1.DoMinimize(Sender: TObject);
begin
  showmessage('Форма свернута!');
end;

procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
  var VHeaderEncoding: Char; var VCharSet: String);
begin
VCharSet:=IdMessage1.CharSet;
end;

unit auto_run_modul;
 
// модуль установки программы в автозагрузку
// [url]http://delphidevelop.ru/publ/5-1-0-13[/url]
 
interface
uses SysUtils, Windows, Registry;
 
procedure Autorun(Flag:boolean; NameParam, Path:String);
//  Autorun(true,'www.DelphiDevelop.ru', Application.ExeName);
 
implementation
 
procedure Autorun(Flag:boolean; NameParam, Path:String);
var Reg:TRegistry;
begin
  if Flag then

  TCntrEdit = class(TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams);override;
  end;

procedure TCntrEdit.CreateParams(var Params: TCreateParams);
begin
  inherited