菜鸟提问：为何PNotifyIconDataA后面有一个A？

Question

procedure TForm1.WMSysCommand 
(var Message:TMessage); 
var 
  lpData:PNotifyIconData; 
begin 
 if Message.WParam = SC_ICON then 
 begin 
   //如果用户最小化窗口则将窗口 
   //隐藏并在任务栏上添加图标
   lpData := new(PNotifyIconDataA); 
   lpData.cbSize := 88; 
   lpData.Wnd := Form1.Handle;
   lpData.hIcon := Form1.Icon.Handle; 
   lpData.uCallbackMessage := WM_BARICON; 
   lpData.uID :=0; 
   lpData.szTip := 'Samples'; 
   lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; 
   Shell_NotifyIcon(NIM_ADD,lpData); 
   dispose(lpData); 
   Form1.Visible := False; 
 end 
 else 
 begin 
   //如果是其它的SystemCommand 
   //消息则调用系统缺省处理函数处理之。
   DefWindowProc(Form1.Handle,Message.Msg,Message.WParam,Message.LParam);
 end; 
end;
===========================
请问  lpData := new(PNotifyIconDataA); 这里为何多个A呀？

Answer 1

有一些API有A和W两种版本，A表示Ansi的，不支持Unicode。W表示宽字符，支持Unicode
比如CreateWindowA和CreateWindowW，
而在Delphi你用CreateWindow就默认CreateWindowA，所以Delphi对Unicode的支持很差上面这个的意思也差不多是。