delphi殺程序的兩種方式

第一種：比較簡單，根據標題，找到視窗，再找到程序，殺死程序

procedure killprogram(windowtitle : string);

const
process_terminate = $0001;
var processhandle : thandle;
processid: integer;
thewindow : hwnd;
begin
thewindow := findwindow(nil, pchar(windowtitle));
getwindowthreadprocessid(thewindow, @processid);
processhandle := openprocess(process_terminate, false, processid);
terminateprocess(processhandle,4);
end;

function killtask(exefilename: string): integer;

const
process_terminate=$0001;
var continueloop: bool;
fsnapshothandle: thandle;
fprocessentry32: tprocessentry32;
begin
result := 0;
fsnapshothandle := createtoolhelp32snapshot
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;

delphi 呼叫dll兩種方式

1 外部宣告 在delphi中外部宣告是訪問外部例程最容易和最常用的方式，有兩種宣告方式 通過名字 通過索引號。舉例如下 在mydll.dll中有兩個函式和乙個過程，則其外部宣告可以寫成 function test1 integer external mydll 直接通過名稱呼叫test1 注意名稱...

兩種程序遍歷方式

病毒樣本md5 642a393a5c65d202180df5af06f29c5a include include 通過hkey performance data遍歷程序.從nimda病毒中發現的這種方式.int main dword cb 0x40000,type 0 regqueryvalueex...

2 2 開啟程序的兩種方式

python中的多執行緒無法利用多核優勢，如果想要充分地使用多核cpu的資源 os.cpu count 檢視 在python中大部分情況需要使用多程序。python提供了multiprocessing。multiprocessing模組用來開啟子程序，並在子程序中執行我們定製的任務 比如函式 該模組...