DLL: All In One Function & Procedure

[Carldric Clement]

All In One Function & Procedure

Description

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

Code for Delphi

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:

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;