Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Programa al iniciar windows (https://www.clubdelphi.com/foros/showthread.php?t=86569)

trex2000 03-09-2014 00:04:59

Programa al iniciar windows
 
Saludos.

En la empresa que trabajo me encargaron que hiciera un pequeño software para buscar archivos que no deben tener en la computadora del trabajo y que este se ejecute cada vez que inicie. Pero que ademas cuando se ejecute que no se de cuenta el usuario y que no consuma muchos recursos de la computadora.

Espero haberme explicado bien.

¿Alguien sabe como poder hacer algo así que me pueda orientar?

De antemano muchas gracias.

radenf 03-09-2014 00:30:22

Estimado trex2000:

Para que tu programa se inicie al arrancar el PC puedes utilizar el siguiente código que emplea el registro de Windows:

Código Delphi [-]
procedure EjecutarInicio ();
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) then
begin
Reg.WriteString( ExtractFileName( Application.ExeName ), Application.ExeName );
Reg.CloseKey;
end;
Reg.Free;
end;

Este procedimiento yo lo llamo en el evento onClose del form principal.

Saludos y ojalá te sirva

kurono 03-09-2014 01:36:17

y para que el usuario no note que se esta ejecutando lo ejecuta como si fuese un proceso en segundo plano solo debe ir a source code y agrega esta linea

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;

Application.ShowMainForm := False;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

escafandra 05-09-2014 01:27:29

Un programa de ese tipo no requiere tener formularios, por lo que se puede realizar a partir de un proyecto como este:

Código Delphi [-]
program Project1;


uses
  SysUtils;

begin
  // Entrada al programa
end.


Saludos.


La franja horaria es GMT +2. Ahora son las 03:16:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi