Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Iniciando sua Aplicação junto com Windows
Página 1 de 1
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.
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.
GripeBovina- Novato
- Mensagens : 23
Créditos : 15
Tópicos semelhantes
» Área do VX Ace junto com VX Normal?
» Janela de Gold (Junto com o Menu)
» Como ligar um site que vem junto com um Ot?
» Iniciando Uma Equipe
» [Dúvida] Iniciando no EO
» Janela de Gold (Junto com o Menu)
» Como ligar um site que vem junto com um Ot?
» Iniciando Uma Equipe
» [Dúvida] Iniciando no EO
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos