Ejecutar un programa junto con windows
Publicado por Felix muriel (2 intervenciones) el 22/02/2008 23:45:31
Hola atados
Quisiera que alguien me ayude ejecutar un programita junto con el windows
Ósea quiero que mi programa se ejecute automáticamente cada vez que se prende o reinicie el equipo.
En el foro he encontrado este ejemplo pero no se en que propiedad o evento se pone este ejemplo
procedure ejecutarInicio ();
var
reg : tregistry;
begin
Reg := TRegistry.Create(KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', True) then
begin
try
Reg.WriteString('AjpdSoft Aviso Cambio IP Pública',
ExtractFilePath(ParamStr(0)) + ExtractFileName(ParamStr(0)));
except
Reg.CloseKey;
raise;
end;
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end
Saludos y gracias a todos
Quisiera que alguien me ayude ejecutar un programita junto con el windows
Ósea quiero que mi programa se ejecute automáticamente cada vez que se prende o reinicie el equipo.
En el foro he encontrado este ejemplo pero no se en que propiedad o evento se pone este ejemplo
procedure ejecutarInicio ();
var
reg : tregistry;
begin
Reg := TRegistry.Create(KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', True) then
begin
try
Reg.WriteString('AjpdSoft Aviso Cambio IP Pública',
ExtractFilePath(ParamStr(0)) + ExtractFileName(ParamStr(0)));
except
Reg.CloseKey;
raise;
end;
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end
Saludos y gracias a todos
Valora esta pregunta


0