Recuperar programa que nao aparece na barra de tarefas?
28/11/2005
0
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
var
H : HWnd;
begin
H := FindWindow(Nil,´Hook´);
if H <> 0 then ShowWindow(H,SW_HIDE);
end;
Usei um applicationevents e no events onminimize digitei esse comando acima, ai o que ele faz eh na hora em que clico no sinal minimizar o programa desaparece da barra de tarefas, mais dai a pergunta, como faço para visualiza-lo novamente, pensei em alguma tecla de atalho tipo F10, mais nao obtive sucesso usando ele no events onkeyup nem no onkeydown.
Alguem sabe como posso recuperar meu projeto novamente pq o objetivo dele ficar escondido eh trabalhar em segundo plano no windows, mais com a opçao de recupera-lo novamente.
Entao no events onkeydow fiz esse comando, mais nao funcionou
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
vk_f10: form1.show;
vk_f12: Form1.visible:=true;
end;
end;
Grato pela ajuda de todos
Adriano
Adriano_servitec
Posts
30/11/2005
Adriano_servitec
Grato pela ajuda
Adriano
30/11/2005
Siam
01/12/2005
Adriano_servitec
no Form Principal você coloca
private
procedure Hot_Key(var Msg:TWMHotKey); message WM_HOTKEY;
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 1, MOD_ALT, VK_F5);
RegisterHotKey(Handle, 2, MOD_ALT, VK_F6);
RegisterHotKey(Handle, 3, MOD_CONTROL, VK_F5);
end;
procedure TForm1.Hot_Key(var Msg:TWMHotKey);
begin
if (Msg.HotKey = 1)
then ShowMessage(´Tecla Alt - F5 pressionada´);
IF (Msg.HotKey = 2)
then ShowMessage(´Tecla Alt - F6 pressionada´);
IF (Msg.HotKey = 3)
then WinExec(´calc.Exe´,Sw_ShowNormal)
end;
Obrigado siam
Sua dica foi de grande utilidade no meu projeto
T+
01/12/2005
Siam
Clique aqui para fazer login e interagir na Comunidade :)