前段时间因为项目需要，获取指定文件的图标，绕了很多弯子，现在弄出来了，跟大家共享下.
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    dlgOpen1: TOpenDialog;
    imgPic: TImage;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Mem : TMemoryStream;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
  FileInfo : TSHFileInfo;
  hc: TIcon;
  Bitmap : TBitmap;
begin
  Mem := Tmemorystream.Create;
  if dlgOpen1.Execute then
  begin
    FileInfo.iIcon := 0;
    SHGetFileInfo(pch ......

var
   L,i:integer;
   Ustr,str:string;
   p:char;
begin
  str:='123456789ABCDEFG'
  L:=length(str);
  for i:=1 to l do begin
      p:=str[i];
      str[i]:=str[l-(i-1)];
      str[l-(i-1)]:=p;
      if i=(l div 2) then break;
 end;
  ......

Delphi编写系统服务七：完成端口演示 收藏
 在开发大量Socket并发服务器，完成端口加重叠I/O是迄今为止最好的一种解决方案，下面是简单的介绍：
   “完成端口”模型是迄今为止最为复杂的一种I/O模型，特别适合需要同时管理为数众多的套接字，采用这种模型，往往可以达到最佳的系统性能。但是只适合Windows NT和Windows 2000及以上操作系统。因其设计的复杂性，只有在你的应用程序需要同时管理数百乃至上千套接字的时候，而且希望随着系统内安装的CPU数量增多，应用程序的性能也可以线性提升，才考虑采用“完成端口”模型。
    重叠I/O（Overlapped I/O）模型使应用程序达到更佳的系统性能。重叠模型的基本设计原理便是让应用程序使用一个重叠的数据结构，一次投递一个或多个Winsock I/O请求。针对哪些提交的请求，在它们完成之后，应用程序可为它们提供服务。该模型适用于除Windows CE之外的各种Windows平台。
    开发完成端口最具有挑战是线程个数和管理内存，创建一个完成端口后，就需要创建一个或多个“工作者线程”，以便在I/O请求投递给完成端口对象后，为完成端口提供服务。但是到 ......

Delphi编写系统服务六：在服务中使用COM组件 收藏
 在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件
var
  Qry: TADOQuery;
begin
  CoInitialize(nil);
  Qry := TADOQuery.Create(nil);
  try
    ...
  finally
    Qry.Free;
    CoUninitialize;
  end; ......

Delphi编写系统服务三：编写两栖系统服务 收藏
 采用下面的方法，可以实现一个两栖系统服务（既系统服务和桌面程序的两种模式）
工程代码：
program FleetReportSvr;
uses
  SvcMgr,
  Forms,
  SysUtils,
  Windows,
  SvrMain in 'SvrMain.pas' {FleetReportService: TService},
  AppMain in 'AppMain.pas' {FmFleetReport}；
{$R *.RES}
const
  CSMutexName = 'Global\Services_Application_Mutex';
var
  OneInstanceMutex: THandle;
  SecMem: SECURITY_ATTRIBUTES;
  aSD: SECURITY_DESCRIPTOR;
begin
  InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@aSD, True, nil, False);
  SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
  SecMem.lpSecurityDescriptor := @aSD;
  SecMem.bInheritHandle := False;
  OneInstanceMutex := CreateMutex(@SecMem, False, CSMutexName);
  if (GetLastError = ERROR_ALREADY_EXISTS)then
  begin
    DlgError('Error, Progr ......

 Delphi编写系统服务二：系统服务和桌面程序的区别 收藏
 Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程，系统服务和桌面程序的区别是：
系统服务不用登陆系统即可运行；
系统服务是运行在System Idle Process/System/smss/winlogon/services下的，而桌面程序是运行在Explorer下的；
系统服务拥有更高的权限，系统服务拥有Sytem的权限，而桌面程序只有Administrator权限；
在Delphi中系统服务是对桌面程序进行了再一次的封装，既系统服务继承于桌面程序。因而拥有桌面程序所拥有的特性；
系统服务对桌面程序的DoHandleException做了改进，会自动把异常信息写到NT服务日志中；
普通应用程序启动只有一个线程，而服务启动至少含有三个线程。（服务含有三个线程：TServiceStartThread服务启动线程；TServiceThread服务运行线程；Application主线程，负责消息循环）；
  摘录代码：
  procedure TServiceApplication.Run;
  begin
    .
    .
    .
      StartThread := TServiceStartThread.Create(ServiceStartTable);
   ......