Dúvida Em Delhi 7... Ajudem...

[Lenerton_sc]

>> Pessoal, gostaria de saber se alguém sabe como faz para:

>>>>>>Vamos supor q o cliente execute a aplicação...

>>>>>>>>Tem como eu evitar q ele execute outra sem fechar a primeira??

>>>>>>Algum de vocês conhce, tem ou sabe onde eu posso encontrar ícones ou bmps no estilo XP... É q estou tentando fazer um aplicação para rodar em 98 mas com estiloXP...

>> desde já grato...

[Progr'amador]

Olá Lenerton_sc,

Respondendo sua primeira pergunta

>>Use esse exemplo o fonte do seu projeto:

program Project1; 
uses 
  Forms, 
  Windows, 
  Dialogs, 
  Unit1 in 'Unit1.pas' {Form1}; 
{$R *.RES} 
Var HprevHist : HWND; 
begin 
  Application.Initialize; 
  HprevHist := FindWindow(Nil, PChar('Titulo do Aplicativo')); 
  if HprevHist = 0 then begin 
     Application.Title := 'Titulo do Aplicativo'; 
     Application.CreateForm(TForm1, Form1); 
     Application.Run; 
  end else 
     MessageDlg('Você não pode executar outra cópia do aplicativo', mtInformation, [mbOK], 0);
end.

e respondendo a segunda,

>>No link abaixo tem sua resposta:

http://scriptbrasil.com.br/forum/index.php?showtopic=36903

Abs. Progr'amador.