Zitat von
newuser01:
Delphi-Quellcode:
if not FileExists(ExtractFilePath(Application.ExeName)+'
\bass.dll')
then
begin
//wenn dll nicht vorhanden
DLLRes := TResourceStream.Create(0, '
bassdll', '
RT_RCDATA');
DLLRes.SaveToFile(ExtractFilePath(Application.ExeName)+'
\bass.dll');
end
else
begin
end;
//if
Das funktioniert aber leider nicht die
DLL wird nicht entpackt.
Das würde auch funktionieren, wenn du die Anführungszeichen um RT_RCDATA weglässt - das ist nämlich eine Konstante.