Как присвоить хинту иконки программы в трее значение переменной?

← →
Chaser © (2004-12-08 17:14) [0]

Вопрос: создаю иконку программы в трее. Пытаюсь сделать хинт при наведении на нее мыши.
Если написать фиксированный текст szTip:="My Program", то все работает.
А если к этому добавить строку, содержащюю текстовую переменную, то выдает ошибку (несовместимые типы Array и String).

procedure TForm1.CreateTrayIcon(n: integer);
var
nidata: TNotifyIconData; // икона
s: array [0..63] of Char;
ss: string;
begin
s:="- Пользователь ххх";
ss:="- Пользователь ххх";
with nidata do
begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=Self.Handle;
uID:=n;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage:=WM_MYTRAYNOTIFY;
hIcon:=Application.Icon.Handle;
szTip:="My Program "+s;
end;
Shell_NotifyIcon(NIM_ADD, @nidata);
end;

Подскажите плиз, как решить проблему.

← →
@BraIN © (2004-12-08 17:23) [1]

s и ss можно перевести в константы:

procedure TForm1.CreateTrayIcon(n: integer); const s = "- Пользователь ххх"; ss = "- Пользователь ххх"; var nidata: TNotifyIconData; begin ...

← →
Leonid Troyanovsky (2004-12-09 09:40) [2]

> Chaser © (08.12.04 17:14)

> Подскажите плиз, как решить проблему.

http://www.rsdn.ru/Forum/?mid=897503

И RTFM Character pointers and character arrays.

--
С уважением, LVT.

Отвечаю сам:

s: string;
...
StrPCopy(szTip,s);
...

Как присвоить хинту иконки программы в трее значение переменной? Найти похожие ветки