同上
解决方案 »
- 不知道服务器IP地址如何在Internet上用SOCKET传输文件?
- win32 Service中如何提供接口?
- 如何识别可移动磁盘的名称?
- 今天解决了一个郁闷了两天的问题,高兴ing.....散分。
- 求小写转大写程序
- 菜单的问题
- ★★★www.csdn.com.cn★★★已经开通~目前正在测试阶段~!!
- 菜鸟问题,如果回答不出,说明你也是菜鸟!
- 一系列的问题@@@@@@@@@@@@@@@@@@@@
- 请问我想控制一个外部程序的按钮,比如有一个游戏要我不停地点鼠标左键,我的鼠标左键不灵,我想用键盘上的回车键来代替鼠标左键,请问如
- fastreport fr这个报表控件怎么实现 全部页数 的统计?
- 在delphi中能实现vf中的字段映射吗?
SendMessage(handle,WM_Close,0,0)
handle := FIndwindow(nil,'我的程序窗口标题')
SendMessage(handle,WM_Close,0,0)
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0; 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
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;
end;
begin
killtask('micaps.exe');
end;我自己用的,特别好................
FProcessEntry32是什么呀,我怎么在帮助里面找不到呀