请解答Win32 API中的两个函数？(30分)

1、CreateCaret（HWND hWnd，HBIBMAP hBitmap，int nHeight）；
请问我怎样来使我的一幅图像跳动？我不明白HBIBMAP参数的获得
与赋值！
2、GetUserName函数有两个参数怎样获得，给解一下！我的目的是
想获得当前的登陆用户名称等信息。

看下面的两个例子：
procedure TForm1.Button1Click(Sender: TObject);
var
UserName: PChar;
Size: Cardinal;
begin
Size := 256;
UserName := StrAlloc(Size);
GetUserName(UserName, Size);
ShowMessage(String(UserName));
StrDispose(UserName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
CaretBitmap: TBitmap;
begin
CaretBitmap := TBitmap.Create;
CaretBitmap.LoadFromFile('C:/Program Files/Common Files/Borland Shared/Images/Icons/chem16.bmp');
CreateCaret(Handle, CaretBitmap.Handle, 16, 16);
ShowCaret(Handle);
end;