Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Подскажите где ошибка ?   Найти похожие ветки 

 
Jakommo   (2003-02-27 10:53) [0]

Уважаемые мастера! Подскажите, почему с ниже приведённым кодом не могу закрыть нужные мне приложения, например: Винамп, ИЭ т.д.
Мне удалось закрыть только Нотепад!
Где ошибка?

const
PROCESS_TERMINATE = $0001;

procedure TForm1.Button1Click(Sender: TObject);
var
TheWindow: hwnd;
ProcessId: integer;
ProcessHandle: cardinal;
begin
TheWindow := FindWindow("Progman", nil);
GetWindowThreadProcessID(TheWindow, @ProcessId);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);


 
Snap   (2003-02-27 11:24) [1]

Otlazhivat ne proboval?


 
Jakommo   (2003-02-27 11:51) [2]

Да, пробовал! Ничего подозрительного...


 
Clickmaker   (2003-02-27 13:42) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
TheWindow: hwnd;
begin
TheWindow := FindWindow("Winamp v1.x", nil);
PostMessage(TheWindow, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

А закрывать Progman - это жестоко...


 
jakommo   (2003-02-27 14:00) [4]

> Clickmaker
:) Спасибо! Ряботает. Идею понял!


 
jakommo   (2003-02-27 14:08) [5]

А как сделать тоже самое, но закривать по имени exe?


 
Smashish   (2003-02-27 15:14) [6]

var
hProcessSnap:Cardinal;
pe32:tagPROCESSENTRY32;
begin
hProcessSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe32.dwSize:= SizeOf(PROCESSENTRY32);
if (Process32First(hProcessSnap, pe32)) then
while (Process32Next(hProcessSnap, pe32)) do
Memo1.Lines.Add(pe32.szExeFile);
CloseHandle (hProcessSnap);
end;


 
Guerrillero   (2003-02-27 15:16) [7]

1) с помощью ToolHelp функций получить список процессов
2) Найти процесс с нужным exe
3) Взять его ProcessID
4) Получить hProcess с помощью OpenProcess
5) TerminateProcess


 
Jakommo   (2003-02-27 15:58) [8]

> Smashish
> Guerrillero

Спасибо! Но немогу запустить :( А какую uses ставить?


 
Guerrillero   (2003-02-27 16:14) [9]

TLHelp32



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.047 c
14-30111
Ihor Osov'yak
2003-02-17 17:01
2003.03.10
Таблеток мне от жадности или


6-29977
reitor
2003-01-21 12:02
2003.03.10
FTP manager


3-29759
Лёша
2003-02-17 18:13
2003.03.10
Кто работал с BTRIEV из DELPHI?


7-30161
AndreyP
2003-01-11 07:23
2003.03.10
Не переключается раскладка клавистуры


14-30029
trotski
2003-02-24 13:29
2003.03.10
Дорвался до инета!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский