Works fine on XP SP3 and Vista SP1 (both 32 bit)
Code: Select all
if Process('gnotify.exe').IsStillRunning then
begin
hintStr := Process('gnotify.exe').TrayIcons.Items[0].Hint;
Memo1.Lines.Add('Got hint text : ' + hintStr);
end;
Code: Select all
if Process('gnotify.exe').IsStillRunning then
begin
hintStr := Process('gnotify.exe').TrayIcons.Items[0].Hint;
Memo1.Lines.Add('Got hint text : ' + hintStr);
end;