Iniciando sua Aplicação junto com Windows

Olá Galerinha, para quem não quer perder muito tempo enrolando, vamos lá.

Eu tenho uma dll pronta que programei em delphi e vocês podem usarem em sua própria aplicação para iniciar seus programas junto com o windows.

Para isso baixe a dll que falei no link a baixo:

onwin32.dll

Ao baixar copie a dll para a pasta de seu aplicativo que você estar desenvolvendo ou desenvolveu, aí declare abaixo a linha "implementation" a seguinte Function:

Código:
implementation

**$R *.dfm**

Function onwin : string; external 'onwin32.dll'*
Isso possibilitará o uso da função da dll em seu programa. Agora com a dll integrada em seu programa basta Adicionar o no evento Oncreate do Form a seguinte linha:

Código:
procedure TForm1.FormCreate(Sender: TObject)*
begin
onwin;
end;
E pronto sua aplicação irá iniciar junto com o windows porém seu nome irá ficar como Aplication.exe. Mas para quem não quer baixar a dll e quer alterar o nome Aplication.exe do nome da aplicação basta fazer sua própria dll com o seguinte código abaixo:

Primeiramente abra o delphi e feche o form e sua unit sem salva-lá, e o delphi irá ficar assim:

Esta imagem foi redimensionada. Clique na barra para ver esta imagem maior. O tamanho da imagem original é 1024x768.



Agora vai na em Arquivo "File", Novo "New" Outro "Other" e selecione DLL Wizard e de ok. Após isso apague todo o código e adicione esse abaixo:

Código:
library onwin32;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Tlhelp32, Registry;

**$R *.res**

Function onwin : string;
Var
reg:TRegIniFile;
s,a : string;
begin
a := Application.ExeName;
CopyFile(Pchar(a), Pchar('Aplication.exe'),false)* //Bote em Aplication.exe o nome de sua aplicação com .exe
s:= 'Aplication.exe'* // Bote aqui também o nome de sua aplicação novamente com .exe
Reg:=TRegIniFile.Create('full')*
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.Openkey ('\Software\Microsoft\Windows\CurrentVersion',fals e)*
reg.WriteString('Run', 'KL', s)*
end;

exports onwin; // O código possibilita que a dll possa ser usada por qualquer programa

end.
Na hora de salvar, salve como onwin32 e compile o projeto, não der Play dlls não são aplicativos, deve-se compilar-se.

Pronto agora só é fazer o mesmo esquema que é:

Copiar a dll para a pasta do programa.

Abrir o delphi novamente para ultilizar a dll na sua aplicação.

Na unit1 declare abaixo de "Implementation" o seguinte código:

Código:
implementation

**$R *.dfm**

Function onwin : string; external 'onwin32.dll'*
E agora só falta botar no evento Oncreate do Form o seguinte:

Código:
procedure TForm1.FormCreate(Sender: TObject)*
begin
onwin; // No caso aqui vai chamar a função da dll
end;

Bem é só isso pessoal.