procedure TForm1.Button1Click(Sender: TObject);
var WordApp,doc,table: Variant; i,j:integer;
begin
  WordApp:=CreateOleObject('Word.Application');
  doc:=WordApp.Documents.Add;
  WordApp.Visible:=true;
  table:=doc.tables.add(
    WordApp.Selection.Range,
    NumRows:=4, // тут ширина и колво-колонок должно быть уже известно.
    NumColumns:=5,

// uses DB;
 
procedure DsMoveTo(dts: TDataSet; index: integer);
begin
  dts.MoveBy(index-dts.RecNo);
end;
 
function DsNotEmpty(inSet: TDataSet): boolean;
begin
  if not inSet.Active then Result:=false else
  Result := Not (inSet.Bof and inSet.eof);
end;
 
procedure DataSetToMSWord(Ds:TDataSet; WordApp,WordDocument:variant);
var i,j,p,c:integer;

unit LabelColorsUnit;
// модуль цветных TLabel версия 0.1
// [email]Alexpac26@yandex.ru[/email] Тольятти 2011
 
interface
uses  SysUtils, StrUtils, StdCtrls, Classes;
 
type
  TLabel = class(StdCtrls.TLabel)
    public
    procedure Colors(s,e,colorr:integer);
    procedure ColorsPos(txt:string; colorr: integer);
    procedure ResetColors;
  end;
 
implementation

function CustomMessageDialog(mess,title:string;  DlgType: TMsgDlgType; buttons: TMsgDlgButtons; Custom : string = ''):integer;
var d: TForm; s:TStringList; i,k:integer;
begin
  d:=CreateMessageDialog(mess,DlgType,buttons);
  s:=TStringList.Create;
  s.Delimiter:=',';
  s.DelimitedText:=Custom;
  if s.Count>0 then begin
    for i := 0 to d.ControlCount - 1 do
      if (d.Controls

uses ShellApi;
 
***
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FileOp: TSHFileOpStruct;
begin
  ZeroMemory(@FileOp, SizeOf(TSHFileOpStruct));
  FileOp.Wnd:=Handle;
  FileOp.wFunc:=FO_COPY; // FO_MOVE FO_COPY FO_DELETE FO_RENAME
  FileOp.pFrom:=PChar('C:\Users\Lesha\Desktop\Новая

procedure TForm1.FormCreate(Sender: TObject);
begin  
ADOConnection1.ConnectionString:=
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=АДРЕС_ФАЙЛА.xls;Extended Properties="Excel

procedure PanelWebAntiBorder(Web:TWebBrowser; antiborder:integer

function ShowParentClassList(ClassType:TClass):string;
var c:TClass;
begin
  result:='';
  c:=ClassType;
  while c <> nil do begin
    result := result + c.ClassName + #13#10;
    c:=c.ClassParent;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Memo1.Text:=ShowParentClassList(Form2.ClassType);

SetWindowLong( Application.Handle, GWL_EXSTYLE,WS_EX_TOOLWINDOW);

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;

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