no create do Form
procedure TFrmPrincipal.FormCreate(Sender: TObject);
var
Handle: THandle;
begin
Handle := CreateMutex(nil, False, PChar(Application.Title));
if WaitForSingleObject(Handle, 0) = wait_TimeOut then begin
MessageDlg('Programa já está em uso', mtError, [mbOk], 0);
Como verificar se um programa já esta em execução impedindo que seja
executado mais de uma vez.
Agradeço a ajuda
Paulo
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para fala
2 matches
Mail list logo