bass.dll einbinden

[newuser01]

guten Morgen

Hat sich erledigt ich habe die bass.dll als Resource eingebunden und kann meine Komponente doch weiter verwenden. Ich war vorher nur zu blöd dies zu realisieren Ich hab es immer in OnCreate der Form versucht aber das ist ja Quatsch

Delphi-Quellcode:

//direkt in der Project.dpr dann geht es  :-D   
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},FileCtrl,Windows, Messages, SysUtils, Classes, Graphics, Controls,Dialogs,StdCtrls;

{$R *.RES}

begin

 
if not FileExists(ExtractFilePath(Application.ExeName)+'\bass.dll') then
begin
 //create dll
 DLLRes :=TresourceStream.CreateFromID(0, 101, PChar('DLL'));
 DLLres.SaveToFile(ExtractFilePath(Application.ExeName)+'\bass.dll');
end
   else
       begin
          //dll vorhanden
end;//if


Application.Initialize;
Application.Title := 'Form1';
Application.CreateForm(TForm1, Form1);
Application.Run;

end.

Delphi-Quellcode:

unit Unit1;
//in unit1 noch folgendes
var
  DLLRes: TResourceStream;
implementation

uses Unit1;

{$R *.DFM}
{$R DLL.res}