Iniciar um programa sem apresentar nenhuma tela no desktop.
22/02/2003
0
Caros colegas como crio um programa que ele rode sem mostrar nenhuma tela, pois e um programa que faz iventário do hardware da maquina e o usuario nao pode ter acesso pra fechar este programa...
Atenciosamente
Penelope
Atenciosamente
Penelope
Anonymous
Curtir tópico
+ 0
Responder
Posts
22/02/2003
Anonymous
vá no codigo do dpr, atençao: do arquivo dpr nao é .pas
veja o exemplo em em um de meus programas:
esse é o dpr completo:
program BkpAuto;
uses
Forms,
Ubkp in ´Ubkp.pas´ ,
Uexcluir in ´Uexcluir.pas´ ,
Ureg in ´Ureg.pas´ ,
Urelat in ´Urelat.pas´ {QuickReport1: TQuickRep},
Uconf in ´Uconf.pas´ ,
Usobre in ´Usobre.pas´ ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(Tfrmbkp, frmbkp);
Application.CreateForm(Tfrmexcluir, frmexcluir);
Application.CreateForm(Tfrmreg, frmreg);
Application.CreateForm(TQuickReport1, QuickReport1);
Application.CreateForm(Tfrmconf, frmconf);
Application.CreateForm(Tfrmabout, frmabout);
Application.ShowMainForm := False; // Atençao para essa linha!!!!!!!!!!!!!!!! copie isso para a linha antes do application.run
Application.Run;
end.
copie o codigo abaixo para a linha antes do application.run e o programa ficara invisivel:
Application.ShowMainForm := False;
qualquer coisa, mande me contacte em davicdc@yahoo.com.br
veja o exemplo em em um de meus programas:
esse é o dpr completo:
program BkpAuto;
uses
Forms,
Ubkp in ´Ubkp.pas´ ,
Uexcluir in ´Uexcluir.pas´ ,
Ureg in ´Ureg.pas´ ,
Urelat in ´Urelat.pas´ {QuickReport1: TQuickRep},
Uconf in ´Uconf.pas´ ,
Usobre in ´Usobre.pas´ ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(Tfrmbkp, frmbkp);
Application.CreateForm(Tfrmexcluir, frmexcluir);
Application.CreateForm(Tfrmreg, frmreg);
Application.CreateForm(TQuickReport1, QuickReport1);
Application.CreateForm(Tfrmconf, frmconf);
Application.CreateForm(Tfrmabout, frmabout);
Application.ShowMainForm := False; // Atençao para essa linha!!!!!!!!!!!!!!!! copie isso para a linha antes do application.run
Application.Run;
end.
copie o codigo abaixo para a linha antes do application.run e o programa ficara invisivel:
Application.ShowMainForm := False;
qualquer coisa, mande me contacte em davicdc@yahoo.com.br
Responder
Clique aqui para fazer login e interagir na Comunidade :)