2 Duvidas

Question

Ola, tenho duas duvidas:1- Qual eh o codigo para impidir q a aplicacao seja aberta mais de uma vez?2- Para rodar um sistema com bd em access, eu preciso do mesmo instalado na maquina?veleu! ;)...

Inutaishou · Answer

1) Use a fun��o FindWindow procurando uma janela com o t�tulo do seu aplicativo... Se existir uma janela, seu aplicativo est� em execu��o... Se n�o, n�o...

2) N�o precisa... Voc� s� vai precisar do ODBC...

[]�s,

Jc_analista · Answer

Abaixo um Exemplo:[code:1:17c59347d4]Var HprevHist : HWND;begin  frmsplash:=Tfrmsplash.create(nil);  frmsplash.Show;  frmsplash.Refresh;  Application.Initialize;  HprevHist := FindWindow(Nil, PChar(�Pctel Crm�));  if HprevHist = 0 then  begin  Application.Title := �Pctel CRM�;  Application.ShowMainForm:=false;  Application.CreateForm(TModuloDados, ModuloDados);  Application.CreateForm(Tfrmmenu, frmmenu);  Application.CreateForm(TFrmLogin, FrmLogin);  frmsplash.Free;  Application.Run;  end else  MessageDlg(�Voc� n�o pode executar outra c�pia do Pctel Crm�, mtInformation, &#91;mbOK&93;, 0);[/code:1:17c59347d4]...

Thales · Answer

oK, MAS qdo executo o FindWindow da o erro: Undeclared Identifier: �FindWindow�?? :roll:...

Sandra · Answer

Thales,Coloque a unit Windows na uses do projeto.[code:1:4ec4addc48]program Project1;uses  Forms, Windows,  Unit1 in �Unit1.pas� ;[/code:1:4ec4addc48]...

Tnaires · Answer

[quote:91349ab86a=�GRFrones�]2) N�o precisa... Voc� s� vai precisar do ODBC...[/quote:91349ab86a]Se vc tiver usando ADO com o driver Microsoft Jet, nem do ODBC vc precisa....

F�rum 2 Duvidas #259144