ShellNotifyIcon里面 szTip: array[0..63] of PAnsiChar;
我这么些为什么不行:procedure setShellIconHint(const strHint: String);
var
    c: array[0..63] of AnsiChar;
    i: Integer;
begin
    for i := 0 to 63 do
    begin
        c[i] := strHint[i + 1];
    end;    Nid.szTip := c;
    Shell_NotifyIcon(NIM_MODIFY, @Nid);
end;