Delphi½áÊø½ø³ÌÄ£¿é
uses Tlhelp32;
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
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;
CloseHandle(FSnapshotHandle);
end;
µ÷ÓõÄʱºòÖ»ÐèÒª
if KillTask('qq.exe') <> 0 then
showmessage('½áÊøQQ³É¹¦')
else
showmessage('ÎÞ·¨½áÊøQQ');
ÄãÔÚ³ÌÐòÀïÃæÓÃÒ»¸ö¼ÆʱÆ÷£¬Ã¿¸ôÒ»ÃëÖÓ¼ì²éһϣ¬Èç¹ûÓоͽáÊø£¬Ò²¾ÍʵÏÖÁ˽ûÖ¹ÔËÐеÄÄ¿µÄ¡£
procedure TForm1.Timer1Timer(Sender: TObject);
begin
KillTask('qq.exe');
end;
Ïà¹ØÎĵµ£º
ÔÚȺÀï¿´µ½ÓÐÈË·¢Á˸ö±ðÈË·¢¸øËûµÄ
ÎÒ¿´ÁËдµÄ±È½ÏÉú¶¯ ÔÚÕâת¸ø´ó¼Ò¿´¿´
ºÃµÄ Ê°È¡ÎïÌ庯ÊýдºÃÁË Ï²½ÊÇÈçºÎ½«´úÂë×¢Èëµ½ÓÎÏ·½ø³ÌÖÐÖ´ÐÐ??
1) С͵¿ªÃÅ
PHND:= OpenProcess (PROCESS_ALL_ACCESS, False, PID);µÃµ½ÓÎÏ·´°¿Ú¾ä±ú»ñµÃȨÏÞ
2)С͵ÔÚ·¿¼ä¸ã¸ö·Å×÷°¸·½°¸µÄµØ·½
TAdd := VirtualAllocEx(PHND, nil, 4096, ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
&n ......
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Bu ......
×¢Ò⣺±¾ÎĽö¹©¼¼Êõ½»Á÷£¬ÇëÎðÓÃÓÚ·Ç·¨ÓÃ;¡£
ÒªÐÞ¸ÄÖ¸¶¨³ÌÐòµÄÖ¸¶¨µØÖ·Êý¾Ý£¬ÎÒÃÇÐèÒªÓõ½Á½¸öapiº¯Êý£¬·Ö±ðÊÇReadProcessMemoryºÍWriteProcessMemory¡£
ÏÂÔØÊǺ¯ÊýµÄ¶¨Ò壺
ReadProcessMemory
Reads data from an area of memory in a specified process. The entire area to be read must be accessible or the op ......