[Resolvido] Onde colocar esse código?

[Estudante Corrupto 0]

http://forum.imasters.com.br/index.php?showtopic=199169

 

Eu coloquei a variável como global e coloquei esse codigo embaixo do implementation, mas nao funciona!!

 

Alguem pode me dizer?

vlw

[bdexterholland 0]

Você tem que abrir o arquivo .dpr - arquivo resposável por iniciar o projeto -

[Estudante Corrupto 0]

Sim, eu abri. Mas onde eu coloco?

 

Exemplo do que eu fiz:

 

unit UNomedaUnit;

interface

uses Windows, blá blá...

 

 

type

Tform = class(TForm)

procedures

...

 

 

private

public

var

Mutex : THandle;

 

implementation

{$R *.res}

begin

Mutex:= CreateMutex(nil, true, 'MinhaAplicacao');

if Mutex <> 0 then

begin

if GetLastError = Error_Already_Exists then

begin

Application.MessageBox('O sistema já está em execução!','MeuSistema', mb_Ok + mb_IconInformation);

exit;

end;

end;

 

Application.Initialize;

Application.Title := 'Rodrigo';

Application.CreateForm(TForm1, Form1);

Application.Run;

end;

 

Aí dá erro!

[ZueRa 0]

Olá amigo, bom dia.

Qual o erro que lhe é apresentado?

[Estudante Corrupto 0]

Application.Run;

end;

 

'.' expected but ; found (na linha em negrito)

[Chrnos 30]

Esse erro geralmente ocorre sempre que falta um 'end.' ou sobra um 'end;' ... pelo que vi, você tá fechando o begin principal do seu código com um 'end;' quando deveria ser um 'end.'.

 

Mude seu último end para end., depois do Application.Run;.

 

[]'s

[Estudante Corrupto 0]

Eu achei que esse código tinha que ser colocado em algum evento (tipo OnForm Create)...

 

chrnos, se eu coloco . no lugar de ;, os procedimentos e códigos que estão abaixo não vão nem ser lidos

[Chrnos 30]

Que procedimentos?? Poste o código inteiro da unit, sem cortar pedaços...

 

[]'s

[Chrnos 30]

Amigo... acho que você está fazendo confusão... o código que você está tentando implementar deve ficar dentro do .dpr... para poder editar o .dpr, vá em Project >> View Source (Delphi 5).

 

Lá, você vai editar seu código desta forma:

 

program blockExecPrograma;

uses
  Windows,
  Forms,
  teste in 'teste.pas' {Form1};

{$R *.RES}

var Mutex : THandle;

begin
  Mutex:= CreateMutex(nil, true, 'MinhaAplicacao');
  if Mutex <> 0 then
  begin
	 if GetLastError = Error_Already_Exists then
	 begin
		Application.MessageBox('O sistema já está em execução!','MeuSistema', mb_Ok + mb_IconInformation);
		exit;
	 end;
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[]'s

[Estudante Corrupto 0]

Putz, eu tinha aberto o dpr mas só apertado f12 pra ir pro código e colocado lá

 

Só agora coloquei em Projet >> View Source funcionou

Valeu galera!!

[bdexterholland 0]

Opa, apertando F12 não abre o dpr não, você visualiza o source referente ao formulário atual.