Ir para conteúdo
Fórum Script Brasil

kconsys

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Posts postados por kconsys

  1. 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, ???)

  2. 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;

×
×
  • Criar Novo...