Delphi程序判斷

2021-05-24 09:32:40 字數 922 閱讀 8033

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...