Форум: "Начинающим";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];
Вниз
Определить статутус программы. Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.055 c
