Можно использовать аппарат атомов.. Пример взаимодействия приложений...(+) («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Можно использовать аппарат атомов.. Пример взаимодействия приложений...(+)

Отправлено ETM 04 апреля 2007 г. 19:05
В ответ на: Посоветуйте, пожалуйста, программу, позволяющую автоматизировать эксперимент. Суть в том, что нужно периодически вводить значения в окно одной программы (генератор) и нажимать на кнопочку в другой программе (запуск измерений). И так много раз, меняя частоту генератора. отправлено K A A 04 апреля 2007 г. 18:55

//Запретить запуск второго экземпляра программы 2

var
AtomText: array [0..31] of Char;

procedure LookForPreviousInstance;
var
PreviousInstanceWindow : hWnd;
AppName : array[0..30] of char;
FoundAtom : TAtom;
begin
// помещаем имя приложения в AtomText
StrFmt(AtomText, 'OnlyOne%s', [Copy(Application.Title,1,20)]);
// Проверяем, не создано ли уже атома с таким именем приложения
FoundAtom := GlobalFindAtom(AtomText);
if FoundAtom <> 0 then { эта копия приложения уже запущена }
begin
StrFmt(AppName,'%s', [Application.Title]);
// изменяем текущий заголовок, чтобы FindWindow не видела его
Application.ShowMainForm := false;
Application.Title := 'destroy me';
// ищем предыдущую копию приложения
PreviousInstanceWindow := FindWindow(nil,AppName);
// Передаём фокус на предыдущую копию приложения
// завершаем текущую копию
Application.Terminate;

if PreviousInstanceWindow <> 0 then
if IsIconic(PreviousInstanceWindow) then
ShowWindow(PreviousInstanceWindow,SW_RESTORE)
else
SetForegroundWindow(PreviousInstanceWindow);
end;
// создаём глобальный атом, чтобы предотвратить
// запуск другой копии приложения
FoundAtom := GlobalAddAtom(AtomText);
end;

constructor TForm.Create(AOwner: TComponent);
begin
inherited;
LookForPreviousInstance;
end;

destructor TForm.Destroy;
var
FoundAtom : TAtom;
ValueReturned : word;
begin
// не забудьте удалить глобальный атом
FoundAtom := GlobalFindAtom(AtomText);
if FoundAtom <> 0 then
ValueReturned := GlobalDeleteAtom(FoundAtom);
inherited Destroy;
end;

Можно использовать аппарат атомов.. Пример взаимодействия приложений...(+)

Ответы