Iniciando sua Aplicação junto com Windows Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Iniciando sua Aplicação junto com Windows

Ir para baixo

Iniciando sua Aplicação junto com Windows Empty Iniciando sua Aplicação junto com Windows

Mensagem por GripeBovina Sáb Dez 04, 2010 10:13 pm

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:

Iniciando sua Aplicação junto com Windows Wol_errorEsta imagem foi redimensionada. Clique na barra para ver esta imagem maior. O tamanho da imagem original é 1024x768.

Iniciando sua Aplicação junto com Windows Imagemmhv

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.
GripeBovina
GripeBovina
Novato
Novato

Mensagens : 23
Créditos : 15

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos