Boa dica!!
Valeu!!
Abraços,
Fernando dos Santos Sousa
Fernando - Hotforms escreveu:
> Testei no Delphi 2006 e não funcionou!!
>
> Abraços,
>
> Fernando dos Santos Sousa
>
> Marcio Cristiano Tenreiro escreveu:
>
>> 132 - Executando uma única cópia do aplicativo
>>
>> Se você quiser executar uma única copia do aplicativo, o código de
>> inicializacao do arquivo fonte do PROJETO pode ser escrito conforme segue:
>>
>> Program Project1;
>>
>> Uses
>>
>> Forms,
>>
>> Windows,
>>
>> Dialogs,
>>
>> Unit1 in 'Unit1.pas' {Form1};
>>
>> {$R *.RES}
>>
>> Var HprevHist : HWND;
>>
>> Begin
>>
>> Application.Initialize;
>>
>> HprevHist := FindWindow(Nil, PChar('TheProgrammer'));
>>
>> If HprevHist = 0 then begin
>>
>> Application.Title := 'TheProgrammer';
>>
>> Application.CreateForm(TForm1, Form1);
>>
>> Application.Run;
>>
>> End else
>>
>> MessageDlg('Você não pode executar outra cópia do aplicativo',
>> mtInformation, [mbOK], 0);
>>
>> Com esse código o usuário pode iniciar uma nova copia do aplicativo somente
>> se não houver outra anterior. Caso contrario é exibido uma mensagem para o
>> usuário.
>>
>>
>>
>>
>>
>> Márcio Cristiano Tenreiro
>>
>> Programador Pleno
>>
>> Unimar - Universidade de Marília -S.P.
>>
>> (14) 3402-4129
>>
>>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
| Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
