Ajuda com TerminateProcess

[kconsys]

Estou Utilizando o codigo abaixo para abrir e fechar o ultravnc porem quando fecho o mesmo não consigo retirar o icone da badeja do windows o mesmo sai quando passo o mouse em cima quem puder me ajudar. obrigado.

procedure TForm1.Button1Click(Sender: TObject);

begin

FillChar(StartupInfo, SizeOf(StartupInfo), 0);

FillChar(ProcessInformation, SizeOf(ProcessInformation), 0);

StartupInfo.cb := SizeOf(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW;

StartupInfo.wShowWindow := SW_SHOWNORMAL;

Button2.Enabled := CreateProcess(nil, // Nome do módulo executável

'C:\Program Files (x86)\UltraVNC\vncviewer.exe -listen 5505', // Linha de comando

nil, // Atributos do processo (SECURITY_ATTRIBUTES)

nil, // Atributos da thread (SECURITY_ATTRIBUTES)

false, // Herdar handles do processo chamador

CREATE_NEW_CONSOLE or // Flags de criação e

NORMAL_PRIORITY_CLASS, // de prioridade

nil, // Variáveis de ambientes para o processo

nil, // Diretório corrente do processo

StartupInfo, // Determina como a janela do processo deve aparecer

ProcessInformation); // Informações sobre o processo criado

Button1.Enabled := not Button2.Enabled;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Button2.Enabled := False;

Button1.Enabled := not Button2.Enabled;

TerminateProcess(ProcessInformation.hProcess, 0);

end;

[Jhonas]

Estou Utilizando o codigo abaixo para abrir e fechar o ultravnc porem quando fecho o mesmo não consigo retirar o icone da badeja do windows o mesmo sai quando passo o mouse em cima quem puder me ajudar. obrigado.

isso é um bug, ou mehor, apenas esquecimento de quem desenvolveu o software de atualizar a barra de tarefas do windows

isso não causa nenhum problema, somente esse inconveniente do icone não sumir se não passar o mouse sobre ele.

abraço

[kconsys]

Estou Utilizando o codigo abaixo para abrir e fechar o ultravnc porem quando fecho o mesmo não consigo retirar o icone da badeja do windows o mesmo sai quando passo o mouse em cima quem puder me ajudar. obrigado.

isso é um bug, ou mehor, apenas esquecimento de quem desenvolveu o software de atualizar a barra de tarefas do windows

isso não causa nenhum problema, somente esse inconveniente do icone não sumir se não passar o mouse sobre ele.

abraço

Mas no Caso não Teria como fazer algo tipo o Shell_NotifyIcon(NIM_DELETE, ???)

[Jhonas]

Mas no Caso não Teria como fazer algo tipo o Shell_NotifyIcon(NIM_DELETE, ???)

no programa ficaria assim

procedure TForm1.FormDestroy(Sender: TObject); 
var 
NotifyIconData: TNotifyIconData; 
begin 
with NotifyIconData do 
begin 
cbSize := sizeof(TNotifyIconData); 
Wnd := Self.Handle; 
uId := 0; 
uFlags := 0; 
end; 
Shell_NotifyIcon(NIM_DELETE,@NotifyIconData); 
end;

mas como no ultravnc não é possivel modificar o código , voce teria que optar por fazer um programa em delphi para isso, ou fazer isso atravez do registro do windows

Iniciar > Executar > Regedit

HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerTrayNotify

- Exclua esses dois valores binários: IconStreams e PastIconStream e feche o Regedit

- Entre no Gerenciador de tarefas (Ctrl + Alt + Del), na guia Processos e finalize o processo explorer.exe

- Em seguida, na guia Arquivo selecione Executar nova tarefa, digite explorer e dê Enter

Como limpar itens antigos da área de notificação

http://support.Micro...om/kb/283084/pt

abraço