program
project2;
uses
windows
,tlhelp32;
function
findprocess(
afilename
:string)
:boolean;
varhsnapshot
:thandle;
lppe
:tprocessentry32;
found
:boolean;
begin
result
:=false;
hsnapshot
:=createtoolhelp32snapshot(
,0);
lppe
.dwsize
:=sizeof(
tprocessentry32);
found
:=process32first(
hsnapshot
,lppe);
while
found
dobegin
if( lppe
.szexefile
=afilename)
then
result
:=true;
found
:=process32next(
hsnapshot
,lppe);
end;
end;
begin
iffindprocess(
'qq.exe')
then
messagebox( 0,
pchar(
'qq存在')
,pchar(
'提示')
,mb_ok);
end.
DELPHI根據程序名強制關閉程序
原理 迴圈所有程序,取得相同名的程序,得到程序控制代碼,關閉 killtask cmd.exe 結束程序 function tform1.killtask exefilename string integer const process terminate 0001 varcontinueloop ...
Delphi判斷檔案大小
delphi自身提供了filesize函式,例如 var f file of byte size longint begin assignfile f,f t.exe reset f size filesize f edit1.text inttostr size closefile f end 這...
delphi 判斷字元為中文
function bytetype const s string index integer tmbcsbytetype 告訴你乙個非常有用的函式。bytetype 它可以判斷乙個字串中,某個 char 是單個字母,還是雙位元組的前一位或 後一位。mbsinglebyte 單字母 mbleadbyt...