unit urunexefile;
inte***ce
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls,tlhelp32;
type
tform1 = class(tform)
button2: tbutton;
bt_list: tbutton;
listbox1: tlistbox;
bt_process: tbutton;
bt_search: tbutton;
edit1: tedit;
button1: tbutton;
procedure bt_listclick(sender: tobject);
procedure button2click(sender: tobject);
procedure bt_searchclick(sender: tobject);
procedure bt_processclick(sender: tobject);
procedure button1click(sender: tobject);
private
public
function processlist:boolean;
end;
type
tprocessinfo = record
exefile:string; //用來存放應用程式的檔名
processid:dword; //存放程序標識號
end;
processinfo = ^tprocessinfo;
varform1: tform1;
implementation
end;
procedure tform1.bt_processclick(sender: tobject);
vari:integer;
begin
for i:=1 to listbox1.items.count-1 do
begin
if listbox1.items.strings[i]='yomoo.exe' then
begin
showmessage('已經執行可以不執行了');
exit;
end;
end;
// howmessage(inttostr(listbox1.items.count));
end;
procedure tform1.button1click(sender: tobject);
begin
if processlist then
showmessage('success');
end;
end.
判斷程式是否在執行
using system using system.collections.generic using system.windows.forms using system.diagnostics using system.collections namespace dataupper string ...
判斷程式是否已經執行
近段時間，需要寫乙個小功能，就是需要判斷程式是否已經執行。某個程式安裝後，也許被多個使用者執行。那怎樣判斷當前使用者已經執行了此程式了呢？下面是insus.net的做法，就是 vb.net winform獲取執行程式使用者名稱 然後 winform vb.net 獲取當前登入的使用者名稱 從上面的方...
shell判斷程式 服務是否執行
由於目前多元件的開發模式，導致乙個服務可能是由多個元件同時支援的，所以判斷這些元件的正常執行就變得比較重要了，之前是根據資料流向，由源頭開始判斷，命令繁瑣，且時間長了，命令也就不記得了。所以想編寫乙個指令碼，進行服務的status判斷 以agent kafka tomcat為例 bin bash s...