Bloquear Exccução de Programa

[Eduardo Golfeto]

Boa tarde, eu gostaria de sanar uma dúvida. 

Assim, tenho um programa e ele executa em uma só máquina, que funciona como um monitor de notas que fica enviando e recebendo arquivos de resposta da SEFAZ-PR, mas preciso que esse programa abara somente uma vez, alguém tem alguma noção de como fazer isso?

[Gr@c@]

quando preciso desse tipo de aplicativo, crio como um serviço do Windows. 

[André Ferreira de Moraes]

Veja os fontes do ACBrMonitor.

 

     CreateMutex(nil, True, 'ACBrMonitor');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
        MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução',
            mtError, [mbOK], 0);
        Application.Terminate;
        exit ;
     end;