Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Вниз
FindWordPad Найти похожие ветки
← →
TUser (2004-02-27 15:17) [0]Какой класс/имя окна у WopdPad"а - мне надо закрыть все его окна, не могу сообразить, что писАть в FindWindow.
Какими средствами вообще можно определить эти параметры для любого окна?
← →
GLFox (2004-02-27 15:19) [1]Посмотри в SoftIce. Его команда HWND показывает все классы.
← →
TUser (2004-02-27 15:23) [2]А ничего попроще софтайса нет? Задача вроде бы не очень замудренная, а софтайс - это вона какая крутая софтина!
← →
GLFox (2004-02-27 15:30) [3]Может и есть... Попробуй WinSight. С Дельфой ставится
← →
GLFox (2004-02-27 15:34) [4]А еще в MS Visual Studio есть Spy++. Тоже много интересного показывает.
← →
Fay (2004-02-27 16:04) [5]Не очень красиво, но писалось "на коленке"...
type
PProcessEntry32 = ^TProcessEntry32;
TProcessEntry32 = packed record
dwSize : DWORD;
cntUsage : DWORD;
th32ProcessID : DWORD;
th32DefaultHeapID : DWORD; // th32DefaultHeapID : ULONG_PTR;
th32ModuleID : DWORD;
cntThreads : DWORD;
th32ParentProcessID : DWORD;
pcPriClassBase : Integer;
dwFlags : DWORD;
szExeFile : packed array[0..MAX_PATH] of Char; // szExeFile[MAX_PATH] : TCHAR ;
end;
const
TH32CS_SNAPHEAPLIST = $00000001;
TH32CS_SNAPPROCESS = $00000002;
TH32CS_SNAPTHREAD = $00000004;
TH32CS_SNAPMODULE = $00000008;
TH32CS_SNAPMODULE32 = $00000010;
TH32CS_INHERIT = $80000000;
TH32CS_SNAPALL = TH32CS_SNAPHEAPLIST or TH32CS_SNAPPROCESS or TH32CS_SNAPTHREAD or TH32CS_SNAPMODULE;
function CreateToolhelp32Snapshot(dwFlags : DWORD; th32ProcessID : DWORD) : THandle; stdcall; external kernel32 name "CreateToolhelp32Snapshot";
function Process32First(hSnapshot : THandle; lppe : PProcessEntry32) : LongBool; stdcall; external kernel32 name "Process32First";
function Process32Next(hSnapshot : THandle; lppe : PProcessEntry32) : LongBool; stdcall; external kernel32 name "Process32Next";
procedure TfmMain.Button1Click(Sender : TObject);
var
pss, p : THandle;
pee : TProcessEntry32;
begin
pss := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if pss = DWORD(-1) then
begin
ShowMessage("Fuck");
Exit;
end;
if Process32First(pss, @pee) then
repeat
if pee.szExeFile = "wordpad.exe" then
begin
p := OpenProcess(PROCESS_TERMINATE, False, pee.th32ProcessID);
TerminateProcess(p, 10);
end;
until not Process32Next(pss, @pee);
CloseHandle(pss);
end;
← →
Fay (2004-02-27 16:09) [6]Только не спрашивай, что такое 10 8)
← →
Fay (2004-02-27 20:11) [7]Я чё-то не понял - работает или нет?
← →
TUser (2004-02-27 20:16) [8]Работает, спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.013 c
