WinAPI: GetCurrentThread、GetCurrentThreadId、GetCurrentProcess、GetCurrentProcessId

原文：http://www.cnblogs.com/del/archive/2008/03/10/1098311.html

{返回当前线程的虚拟句柄}
GetCurrentThread: THandle;

{返回当前线程 ID}
GetCurrentThreadId: DWORD;

{返回当前进程的虚拟句柄}
GetCurrentProcess: THandle;

{返回当前进程 ID}
GetCurrentProcessId: DWORD;

---

提示:
ID 是系统唯一的标识.
所谓虚拟句柄, 就是该句柄只在调用进程的进程中有效, 也不能被继承;
如果用于其他进程需要用 DuplicateHandle 复制句柄;
GetCurrentProcess 返回的虚拟句柄可以通过 OpenProcess 创建一个真实的句柄.

举例:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[,] := '当前线程虚拟句柄: ';
  StringGrid1.Cells[,] := '当前线程 ID: ';
  StringGrid1.Cells[,] := '当前进程虚拟句柄: ';
  StringGrid1.Cells[,] := '当前进程 ID: ';

  StringGrid1.Cells[,] := IntToStr(GetCurrentThread);
  StringGrid1.Cells[,] := IntToStr(GetCurrentThreadID);
  StringGrid1.Cells[,] := IntToStr(GetCurrentProcess);
  StringGrid1.Cells[,] := IntToStr(GetCurrentProcessId);

  {下面是显示格式的调整}
  StringGrid1.Align := alClient;
  StringGrid1.FixedRows := ;
  StringGrid1.RowCount := ;
  StringGrid1.ColCount := ;
  StringGrid1.ColWidths[] := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[,]) + ;
  StringGrid1.ColWidths[] := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[,]) + ;
end;

end.

---

//效果图: