Скачать: CL | DM;

Определить статутус программы.   Найти похожие ветки 

← →
Cara ©   (2006-10-20 11:07) [0]

Добрый день. Требуется определить работает (т.е. запущена ли) программа или нет.

---

← →
palva ©   (2006-10-20 11:10) [1]

А если посмотреть, какие процессы работают в системе?

---

← →
Elen ©   (2006-10-20 11:10) [2]

>  (т.е. запущена ли)

CreateToolhelp32Snapshot,

---

← →
Elen ©   (2006-10-20 11:17) [3]

> Cara

Добавлю :
var p:PROCESSENTRY32;ct:cardinal;
begin
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Process32First(ct,p);
  ListBox1.Items.Append(string(p.szExeFile));
while Process32Next(ct,p) do
  ListBox1.Items.Append(string(p.szExeFile));
end;

В списке будут имена экзешников.

---

← →
Cara ©   (2006-10-20 12:14) [4]

Надо поменять файл на рабочей станции. Для этого надо знать, работает ли оператор с программой. Если да, то попросить его выключить программу. Ежели нет, то просто заменить файл.

---

← →
Cara ©   (2006-10-20 12:15) [5]

Надо поменять файл на рабочей станции. Для этого надо знать, работает ли оператор с программой. Если да, то попросить его выключить программу. Ежели нет, то просто заменить файл.

---

← →
Anatoly Podgoretsky ©   (2006-10-20 12:38) [6]

Для этого не надо определять статус, надо просто менять и обрабатывать ошибку.

---

← →
Elen ©   (2006-10-20 12:53) [7]

>  Для этого надо знать, работает ли оператор с программой

Если программа твоя то можно встроить в нее Сокеты и общаться, давать команды. Намек ясен?

---

← →
Cara ©   (2006-10-20 17:36) [8]

Спасибо. Но всё немного не так. Есть магазин. Там 2 кассы. БД лежит на сервере. Кассы обращаются к ней. Программа постоянно дорабатывается,и очень часто приходиться ездить с флешкой и менять экзешники на кассах. Это очень неудобно, так как приходиться тратить время на дорогу. Есть возможность пересылать фалы через ФТП. Надо сделать прогу, которая будет сама получать файлы с сервера, отключать (давать операторам сообщение) работающие кассы, и менять экзешники. Всё, кроме определения работающего экзешника уже сделал.

---

← →
Чародей ©   (2006-10-20 17:48) [9]

> Есть магазин. Там 2 кассы. очень часто приходиться менять экзешники на кассах


И все это время магазин работает на не рабочих екзешниках!!!??? Или в екзешниках обнавляеся прайс !!! :)

---

← →
Ученик чародея ©   (2006-10-20 19:52) [10]

Тогда попробуй отрыть екзешник на чтение с эксклюзивными правами, а при екзепшене выдавай сообщение - "Закрыть программу мигом, шеф эти штуки вырвет..."


var FStr:TFileStream;

try
  FStr:=TFileStream.Create("Filename",fmOpenRead or fmShareExclusive);
 FStr.Free;
except on E:Exception do
begin
 FStr.Free;
 MessageBox(Application.Handle, "If you not close program, so that your BOSS get your EGGS!!!","Attention, attention!!!",MB_OK or MB_ICONWARNING);
end;


---

← →
Ketmar ©   (2006-10-20 20:08) [11]

в данном случае не "eggs", а "balls".

---

← →
Cara ©   (2006-10-24 16:55) [12]

Если оператор работает с программой, я естественно не могу удалить exe файл, мне надо проверить, программа запущена, или нет.

---

← →
Anatoly Podgoretsky ©   (2006-10-24 17:04) [13]

Не надо, просто удаляй, если не получится, то работает, при условии, что у тебя есть права на удаление.

---

← →
Cara ©   (2006-10-24 17:18) [14]

1. Windows не даст. Ошибка: Не удаётся удалить приложение, возможно оно занято другой программой или пользователем и т.д. 2. Это не корректно по отношению к Б.Д.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.032 c