Also ich dachte mit dem Code hier wär das Problem gelöst:
Delphi-Quellcode:
var
Form1: TForm1;
DLLRes: TResourceStream;
implementation
{$R *.dfm}
{$R DLL.res}
function TempDir:
String;
begin
Result := SysUtils.GetEnvironmentVariable('
temp');
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DeleteFile(TempDir+'
\bass.dll');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if not FileExists(TempDir+'
\bass.dll')
then
begin
DLLRes :=TresourceStream.CreateFromID(0, 101, PChar('
DLL'));
DLLres.SaveToFile(TempDir+'
\bass.dll');
end;
if FileExists(TempDir+'
\bass.dll')
then ShowMessage('
:-)')
else ShowMessage('
:-(');
end;
Aber wenn ich den einfüge und BASS (Bass.pas ist die
Unit zur Bass.dll)aus den Uses nehme
erhate ich den Fehler in dieser Zeile:
chan: HSTREAM = 0;
HStream wär nicht definiert/deklariert.
Das Hstream steht ja natürlich in der Bass.pas.. aber ich möcht die ja gern so wie im Beispiel oben einbinden
