FileForums - DLL: All In One Function & Procedure

All In One Function & Procedure

Description

Quote:

This is really awesome if you try this was no problem with
delphi

Code for Delphi

Code:

const

  LibraryAioFP = 'Aio_FP.dll';



procedure Website(URL: string); stdcall; external LibraryAioFP;

procedure Exec(sExe, sCommandLine: string; wait: Boolean); stdcall; external LibraryAioFP;

function SelDir: string; stdcall; external LibraryAioFP;

function IniRead(Filez, A, B, C: string): string; stdcall; external LibraryAioFP;

function IniCreate(Filez, A, B, C: string): string; stdcall; external LibraryAioFP;

procedure B_PlayMusic(Files: string); stdcall; external LibraryAioFP;

procedure B_PauseMusic; stdcall; external LibraryAioFP;

procedure B_ResumeMusic; stdcall; external LibraryAioFP;

procedure B_StopMusic; stdcall; external LibraryAioFP;

Code for Inno Setup:

Code:

procedure Website(URL: string); external 'Website@files:{tmp}\Aio_FP.dll stdcall delayload';

procedure Exec(sExe, sCommandLine: string; wait: Boolean); external 'Exec@files:{tmp}\Aio_FP.dll stdcall delayload';

function SelDir: string; external 'Exec@files:{tmp}\Aio_FP.dll stdcall delayload';

function IniRead(Filez, A, B, C: string): string; external 'IniRead@files:{tmp}\Aio_FP.dll stdcall delayload';

function IniCreate(Filez, A, B, C: string): string; external 'IniCreate@files:{tmp}\Aio_FP.dll stdcall delayload';

procedure B_PlayMusic(Files: string); external 'B_PlayMusic@files:{tmp}\Aio_FP.dll stdcall delayload';

procedure B_PauseMusic; external 'B_PauseMusic@files:{tmp}\Aio_FP.dll stdcall delayload';

procedure B_ResumeMusic; external 'B_ResumeMusic@files:{tmp}\Aio_FP.dll stdcall delayload';

procedure B_StopMusic; external 'B_StopMusic@files:{tmp}\Aio_FP.dll stdcall delayload';



function InitializeSetup(): Boolean;

begin

    ExtractTemporaryFile('Aio_FP.dll');

    ExtractTemporaryFile('Bass.dll');



    Result:= True;

end;