type
IntArray = array of integer;
 
procedure StrListReIndex(str:TStrings; var index:IntArray);
var i:integer; t: TStringList;
begin
   t:=TStringList.Create;
   t.AddStrings(str);
   str.Clear;
   for i := 0 to t.Count - 1 do
     str.Add(t[index[i]]);
   t.Free;
end;
 
 
procedure StrListSortSaveIndex(str:TStrings;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges;
 
type
  TGauge = class(Gauges.TGauge)
    public
      property OnMouseDown;
  end;
 
  TForm1 = class(TForm)
    Gauge1: TGauge;
    Gauge2: TGauge;
    procedure FormCreate(Sender: TObject);
  private

unit uShell;
 
interface
 
// Модуль копирования файлов в буфер для проводника
// протестирован Delphi 7, XE
 
uses Forms, Classes, SysUtils, ShellApi, ShlObj, ClipBrd, Windows;
 
type
  TWinMoveType = (wCopy = 5, wMove = 2); // Копирование или перенос
 
  WinExplorer = class
    // файлы в буфер

TDBGrid = class(DBGrids.TDBGrid)
public
  HorzScroll: boolean; 
  constructor Create(AOwner:TComponent); override;
protected
  procedure Paint; override;
end;
 
implementation
 
constructor TDBGrid.Create(AOwner: TComponent);
begin
  HorzScroll:=false;
  inherited;
end;

unit FileAssociation;
 
// модуль ассоциации файлов
 
interface
 
uses Windows, SysUtils, Registry, ShlObj;
 
procedure FileAssociate(const Ext, progName: string; Icon: string = ''; ProgPath: string = '');
procedure FileUnAssociate(const Ext, progName:string);
 
implementation
 
procedure FileAssociate(const Ext, progName: string;

unit DropFileClass;
 
// procedure FromDropFiles(Sender: TObject);
 
{ модуль драг и дроп Файлов из проводника и в проводник Windows
 протестирован Delphi 7, XE
 Исходники
 [url]http://www.webundmobile.de/content/download/7387/137496/file/Listings.zip[/url]
 [url]http://www.delphisources.ru/forum/showthread.php?t=21869[/url]
 
 Repack by Alex_pac Тольятти

unit md5Hash;
 
// Optimized version MD5 by Shade & Arigato, 2005.
// repack by Alex_pac 2012
 
interface
 
uses Windows, SysUtils;
 
function md5UTF8 (buf: UTF8String): AnsiString;
function md5 (buf: AnsiString): AnsiString;
 
implementation

// строку в список (explode)
procedure str_explode(const sDelimiter, sSrc :string; resStr: TStrings; lLimit :integer = -1; bWithEmpty :boolean = true);
// разбивает в массив строку sSrc по разделителю sDelimiter
// lLimit - предел длины массива (-1 - без предела)
// bWithEmpty - разрешать пустые строки
var i, ni, dl :integer;
begin
    dl := Length(sDelimiter);

function EncodeText(const text:string):string;
begin
  result:=StringReplace(text,'\','\\',[rfReplaceAll]);
  result:=StringReplace(result,#10,'\r',[rfReplaceAll]);

procedure TForm1.Button1Click(Sender: TObject);
begin
  Unit2.Form2.Show;
  ShowWindow(Unit2.Form2.Handle,SW_SHOWNORMAL); // костыль
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;

function EncodeText(const text:string):string;
begin
  result:=StringReplace(text,'\','\\',[rfReplaceAll]);
  result:=StringReplace(result,#10,'\r',[rfReplaceAll]);

unit MSWord2MHT;
 
// модуль преобразования doc совместимых форматов в MHT
 
interface
 
uses
SysUtils, Windows, ActiveX, ComObj,

uses Controls, ExtCtrls, Buttons, StdCtrls;
 
<...> 
 
procedure SpeedButtonCancel(sB: TSpeedButton);
var p:TPanel;
begin
  p:= TPanel.Create(sB.Owner);
  with p do begin
    Parent:=sB.Parent; BevelOuter:=bvNone;

// uses ExtCtrls
 
// цветная рамка вокруг