Fórum Chamar meu programa #240585

Se vc já possui um TrayIcon.. vc só precisará da segunda função..

senão vc irá precisar de criar as duas..


procedure TForm1.FormCreate(Sender: TObject);
begin
// carrega o ícone inicial
Icon.Handle := LoadIcon (HInstance, ´MAINICON´);
// preenche os dados da estrutura NotifyIcon
nid.cbSize := sizeof (nid);
nid.wnd := Handle;
nid.uID := 1; // Identificador do ícone
nid.uCallBAckMessage := wm_IconMessage;
nid.hIcon := Icon.Handle;
nid.szTip := ´LloydSoft´;
nid.uFlags := nif_Message or
nif_Icon or nif_Tip;
Shell_NotifyIcon (NIM_ADD, @nid);
end;

procedure TForm1.IconTray (var Msg: TMessage);
var
Pt: TPoint;
begin
if Msg.lParam = wm_rbuttondown then
begin
GetCursorPos (Pt);
PopupMenu1.Popup (Pt.x, Pt.y);
end;
end;

depois nos itens do popup, vc deve colocar por exemplo um caption ´Visualizar Aplicativo´, e dê um showmodal no form principal, no evento click desta opção do popup..

espero ter ajudado..

sem mais

Cabelo

Caro amigo meu problema é que esse programa será executado para restringir o usuario de uma lanhouse

então a barra de tarefas onde está o systray está oculta juntamente com o botão iniciar já travado e todos os icones ocultos , só aparecerá o papel de parede quando a pesssoa usar o modo adimim deste software.(Smartlaunch 3.08)

Então o popup não serve.

Obrigado.

Utilize hotkeys. Mas nesse tópico:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=45212