Mp3 bzw "playlist" mit Player (bassplayer) öffnen

[danu1104]

Delphi-Quellcode:

unit stopmultiplerun;

interface

implementation

uses windows,Dialogs,sysutils;

var mHandle: THandle;
 Initialization
  mHandle := CreateMutex(nil,True,'DEIN PROGRAMMNAME');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    Halt;
  end;

finalization 
 if mHandle <> 0 then
  CloseHandle(mHandle);
end.

Hiermit kannst du verhindern das die Anwendung mehr als einmal verwendet bzw gestartet wird.