Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.02 c