Sempre uso o código como no exemplo abaixo (Coloque no DPR):
var
MutexHandle : THandle;
hwind : HWND;
begin
MutexHandle := CreateMutex(nil,True,'MCTAgente');
if (MutexHandle <> 0) then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MessageBox(0, 'Este programa já está em execução!','', mb
Algum dos amigos poderia me ajudar ? Como posso fazer para impedir que o
usuario nao consiga executar o programa enquanto uma execução anterior estiver,
por exemplo, minimizada ?
Grato
Adolfo
[As partes desta mensagem que não continham texto foram removidas]
2 matches
Mail list logo
