Suporte no desenvolvimento de jogos


    Iniciando sua Aplicação junto com Windows

    GripeBovina
    GripeBovina
    Novato
    Novato

    Mensagens : 23
    Créditos : 15
    Cash : 0

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

    Mensagem por GripeBovina em Sab 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.

      Data/hora atual: Seg Set 16, 2019 9:49 pm