top 1.作用
top命令用来显示执行中的程序进程，使用权限是所有用户。

2.格式
top [－] [d delay] [q] [c] [S] [s] [i] [n]

3.主要参数
d：指定更新的间隔，以秒计算。
q：没有任何延迟的更新。如果使用者有超级用户，则top命令将会以最高的优先序执行。
c：显示进程完整的路径与名称。
S：累积模式，会将己完成或消失的子行程的CPU时间累积起来。
s：安全模式。
i：不显示任何闲置(Idle)或无用(Zombie)的行程。
n：显示更新的次数，完成后将会退出top。

图1 top命令的显示

在图1中，第一行表示的项目依次为当前时间、系统启动时间、当前系统登录用户数目、平均负载。第二行显示的是所有启动的进程、目前运行的、挂起(Sleeping)的和无用(Zombie)的进程。第三行显示的是目前CPU的使用情况，包括系统占用的比例、用户使用比例、闲置(Idle)比例。第四行显示物理内存的使用情况，包括总的可以使用的内存、已用内存、空闲内存、缓冲区占用的内存。第五行显示交换分区使用情况，包括总的交换分区、使用的、空闲的和用于高速缓存的大小。第六行显示的项目最多，下面列出了详细解释。
PID（Process ID）：进程标示号。
USER：进程所有者的用户名。
PR：进程的优先级别。
NI：进程的优先级别数值。
VIRT：进程占用的虚拟内存值。
RES：进程占用的物理内存值。
SHR：进程使用的共享内存值。
S：进程的状态，其中S表示休眠，R表示正在运行，Z表示僵死状态，N表示该进程优先值是负数。
%CPU：该进程占用的CPU使用率。
%MEM：该进程占用的物理内存和总内存的百分比。
TIME＋：该进程启动后占用的总的CPU时间。
Command：进程启动的启动命令名称，如果这一行显示不下，进程会有一个完整的命令行。
top命令使用过程中，还可以使用一些交互的命令来完成其它参数的功能。这些命令是通过快捷键启动的。
<空格>：立刻刷新。

可以看到，top命令是一个功能十分强大的监控系统的工具，对于系统管理员而言尤其重要。但是，它的缺点是会消耗很多系统资源。

更多的请看：http://www.qqread.com/windows/2003/index.html

free

1.作用
free命令用来显示内存的使用情况，使用权限是所有用户。

2.格式
free [－b－k－m] [－o] [－s delay] [－t] [－V]

3.主要参数
－b －k －m：分别以字节（KB、MB）为单位显示内存使用情况。
－s delay：显示每隔多少秒数来显示一次内存使用情况。
－t：显示内存总和列。
－o：不显示缓冲区调节列。

4.应用实例
free命令是用来查看内存使用情况的主要命令。和top命令相比，它的优点是使用简单，并且只占用很少的系统资源。通过－S参数可以使用free命令不间断地监视有多少内存在使用，这样可以把它当作一个方便实时监控器。
＃free －b －s5

使用这个命令后终端会连续不断地报告内存使用情况（以字节为单位），每5秒更新一次。

更多的请看：http://www.qqread.com/windows/2003/index.html

uptime 命令

我曾经看到资料上讲，load avarage <3 系统良好，大于5 则有严重的性能问题。注意，这个值还应当除以CPU数目。

如果load avarage=8 ,CPU=3,8/3=2.666，2.66这个值表示系统状态良好

下次我们来说 vmstat 与 iostat 这两个很有用的命令。

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

//MB 函数的声明：
function MB(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

implementation

{$R *.dfm}
{调用外部 DLL 中的函数，譬如调用系统 user32.dll 中的 MessageBoxA}
//function MB(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
//  stdcall; external user32 name 'MessageBoxA';

{其中 user32 是 Delphi 定义的常量 'user32.dll'，可以直接写成：}
//function MB(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
//  stdcall; external 'user32.dll' name 'MessageBoxA';

{name 后面说明函数的真实名字}
{external 子句说明单元载入时就加载函数，也就是早绑定；如果晚绑定需要用 LoadLibrary}
{stdcall 指令表示参数传递是从右到左（Pascal则反之），不通过CPU寄存器传递}

{4个参数的数据类型可以使用对应的 Delphi 数据类型，譬如：}
//function MB(hWnd: LongWord; lpText, lpCaption: PChar; uType: LongWord): Integer;
//  stdcall; external 'user32.dll' name 'MessageBoxA';

{或者是：}
//function MB(hWnd: Cardinal; lpText, lpCaption: PChar; uType: Cardinal): Integer;
//  stdcall; external 'user32.dll' name 'MessageBoxA';

{如果函数在此单元声明后，需要给其他单元调用，需要先在 interface 区声明：}
//function MB(hWnd: Cardinal; lpText, lpCaption: PChar; uType: Cardinal): Integer;
//  stdcall;
{本例已经这样做了，如果要测试其他几种情况，需要先注释掉它}
{然后在 implementation 区，说明函数的来源：}
function MB; external 'user32.dll' name 'MessageBoxA';

//调用测试：
procedure TForm1.Button1Click(Sender: TObject);
var
  t,b:  PChar;
begin
  t := '标题';
  b := '内容';
  MB(0,b,t,0);
end;

end.

unit Unit1;

interface

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

type
  //晚绑定，也就是动态调用外部函数主要用以下三个命令：
  //LoadLibrary：获取 DLL
  //GetProcAddress：获取函数
  //FreeLibrary：释放

  //定义一个过程类型，参数要和需要的函数一致
  TMB = function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    MB: TMB;  {声明函数 MB}
    inst: LongWord;  {声明一个变量来记录要使用的 DLL 句柄}
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  inst := LoadLibrary('user32.dll');
  if inst <> 0 then
    MB := GetProcAddress(inst, 'MessageBoxW');
end;

//调用测试：
procedure TForm1.Button1Click(Sender: TObject);
var
  t,b: PChar;
begin
  t := '标题';
  b := '内容';
  MB(0, b, t, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeLibrary(inst);  {记得释放}
end;

end.

//通过 DLL Wizard 建立：
library TestDLL;

uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.res}

//建立过程
procedure Test;
begin
  ShowMessage('TestDLL.Test');
end;

//输出
exports
  Test;

begin
end.


//在其他工程调用，如果不在一个工程组，需要在相同目录下、System32下或指定路径；
//声明可以在实现区或接口区，这里的函数名要一致，甚至大小写。

//调用测试：
procedure Test; external 'TestDLL.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;

var
  bit: TBitmap;
  pix: TPixelFormat;
  s: string;
begin
  bit := TBitmap.Create;
  bit.LoadFromFile('c:\temp\test.bmp'); //位图路径

  pix := bit.PixelFormat;
  s := '';
  case pix of
    pfDevice: s := 'Device'; {设备支持的像素格式}
    pf1bit:   s := '1bit';
    pf4bit:   s := '4bit';
    pf8bit:   s := '8bit';
    pf15bit:  s := '15bit';
    pf16bit:  s := '16bit';
    pf24bit:  s := '24bit';
    pf32bit:  s := '32bit';
    pfCustom: s := 'Custom';  {其他格式}
  end;
  ShowMessage(s);

  bit.Free;
end;

var
  bit: TBitmap;
begin
  bit := TBitmap.Create;
  bit.LoadFromFile('c:\temp\test.bmp');
  bit.PixelFormat := pf4bit;
  bit.SaveToFile('c:\temp\test2.bmp');
  bit.Free;
end;

var
  bit: TBitmap;
begin
  bit := Self.GetFormImage;  //把窗体客户区获取为图像, 无须 bit := TBitmap.Create;
  bit.PixelFormat := pf1bit;
  bit.SaveToFile('c:\temp\test.bmp');
  bit.Free; //但要释放
end;

procedure FileCopy(const FileFrom, FileTo: string);
var
  FromF,ToF: file;
  NumRead,NumWritten: Integer;
  Buffer: array[1..2048] of Byte;
begin
  AssignFile(FromF, FileFrom);
  Reset(FromF, 1);
  AssignFile(ToF, FileTo);
  Rewrite(ToF, 1);

  repeat
    BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead);
    BlockWrite(ToF, Buffer, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);

  CloseFile(FromF);
  CloseFile(ToF);
end;