請zswang(伴水清清)(专家门诊清洁工)進來領分！！！

多謝zswang(伴水清清)(专家门诊清洁工)幫我解決了心中多年的困惑！！！

------解决方案--------------------
什么困惑，说来听听
------解决方案--------------------
接分~
------解决方案--------------------
接分 伴水说不介意你把分给我
------解决方案--------------------
我也来抢分
------解决方案--------------------
伴水人品不错，
他不介意你把分全给我
------解决方案--------------------
up
------解决方案--------------------
UP

------解决方案--------------------
分散了吧！！就是做一下翻译而已，没花什么功夫

unit Unit1;

interface

uses
WinTypes, WinProcs, Messages, Classes, Controls,
Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message
WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form1: TForm1;

{Our user defined window message}
const
SC_TEST = WM_USER+1;

implementation

{$R *.DFM}

{Add separator and new menu item}
procedure TForm1.FormCreate(Sender: TObject);
begin
AppendMenu(GetSystemMenu(Handle, FALSE), MF_SEPARATOR, 0, ' ');
AppendMenu(GetSystemMenu(Handle, FALSE), MF_STRING, SC_TEST, 'Test ');
end;

{Respond to our new menu}
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_TEST then
MessageDlg( 'Test ', mtInformation, [mbOK], 0)
else
inherited;
end;

end.

------解决方案--------------------
散分？？
那要接一下！
不然对不起伴水！
------解决方案--------------------
散分？？
那要接一下！
不然对不起楼主！