Fórum desligar o msn? #321485
16/05/2006
0
Crcam
Curtir tópico
+ 0Posts
16/05/2006
Crcam
Gostei + 0
16/05/2006
Rudá
Gostei + 0
16/05/2006
Crcam
Gostei + 0
16/05/2006
Rudá
procedure FinalizarTask(ExeFileName: String); const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin FSnapshotHandle:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); FProcessEntry32.dwSize:= Sizeof(FProcessEntry32); ContinueLoop:= Process32First(FSnapshotHandle,FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),FProcessEntry32.th32ProcessID),0); ContinueLoop:= Process32Next(FSnapshotHandle,FProcessEntry32); end; CloseHandle(FSnapshotHandle); end;
FinalizarTask(´msnmsgr.exe´); // MSN FinalizarTask(´Skype.exe´); // Skype FinalizarTask(´googletalk.exe´); // Google Talk FinalizarTask(´ICQLite.exe´); // ICQ Lite FinalizarTask(´aim.exe´); // AIM
Gostei + 0
16/05/2006
Rudá
Gostei + 0
16/05/2006
Crcam
Gostei + 0
10/07/2006
Ranyeryfip
Gostei + 0
10/07/2006
Paulocesar1301
Com esse, independente do nome do exe ele detona com os MSN... lembrando que basta fazer alguns ajustes para poder rodar com outros sistemas indesejáveis:
PostMessage(FindWindow(nil, ´MSN Messenger´), WM_CLOSE, 0, 0); PostMessage(FindWindow(nil, ´MSN Messenger´), WM_QUIT, 0, 0);
Utilizo o ´Close´ e depois o ´Quit´, pq com o primeiro o MSN só vai para o tray... com o segundo fecha de vez.
Abraços e Bons Códigos :wink:
Gostei + 0
10/07/2006
Paullsoftware
PostMessage(FindWindow(nil, ´MSN Messenger´), WM_CLOSE, 0, 0); PostMessage(FindWindow(nil, ´MSN Messenger´), WM_QUIT, 0, 0);
aproveitando a deixa, e pra finalizar jogos que abrem mais de uma copia tipo Half-Life 2, Counter-Strike Source, Mu b6 e outros... o meu sistema eu cadastro todos os aplicativos que serão caregados na área de trabalho, e depois eu finalizo o mesmo do servidor, o problema é que quando finalizo um desses somente é fechado o primeiro e não o jogo em si, deu pra entender? 8)
Gostei + 0
11/07/2006
Ranyeryfip
Gostei + 0
11/07/2006
Mmoreira
aproveitando este topico sobre MSN e Skype alguem sabe se é possivel fazer limitações nestes dois sistemas ... limitações como por exemplo nao deixar o usuario adicionar ninguem a sua lista de contatos e o contrario tambem nao permitir a entrada de contatos nao autorizados na lista de contatos ...
Porque isso ???
Tenho um cliente que trabalha com venda de suprimentos para escritorio entao ele vende muito usando MSN e Skype pois alguns dos seus clientes prefere usar estas ferramentas para fazer contato. O que meu cliente nao quer é que as vendedoras do telemarketing dele adicionem namorada, pai, mae, etc e tambem nao aceitem pedido de inclusao de ninguem ...
sera que deu pra entender?
Gostei + 0
11/07/2006
Leitorbinario
PostMessage(FindWindow(nil, ´MSN Messenger´), WM_CLOSE, 0, 0); PostMessage(FindWindow(nil, ´MSN Messenger´), WM_QUIT, 0, 0);
Como faço pra saber o nome da janela dos programas?
Gostei + 0
12/07/2006
Cyber
PostMessage(FindWindow(nil, ´MSN Messenger´), WM_CLOSE, 0, 0); PostMessage(FindWindow(nil, ´MSN Messenger´), WM_QUIT, 0, 0);
Pegando pela barra de titulo!
Gostei + 0
12/07/2006
Leitorbinario
não funciona com todos...
Gostei + 0
12/07/2006
Madcat
[url]http://forum.clubedelphi.net/viewtopic.php?t=78252[/url]
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)