Hi,
ich habe die Dateiendung mp3 mit einem von mir programmiertem Player verknüpft, wenn der Player nicht läuft, ist das auch kein problem, doppelklick auf die datei, und schon startet mein Player mit dem angeklicktem Lied, ich checke beim Oncreate ob Paramstr mehr als 0 ist, und wenn ja, dann füge ich diese meiner Playliste hinzu...
Delphi-Quellcode:
If (ParamCount>0) and
(FileExists(ParamStr(1))) then begin
Loaded1 := False;
While Loaded1 = False do begin
if Paramstr(XYZ) = '' then begin
Loaded1 := True; //Dateien beim Klick in Explorer hinzufügen
end
else begin
LoadedFiles.Add(ParamStr(XYZ));
XYZ := XYZ +1;
end;
end;
das funtioniert ohne Probleme...
aber wenn das Programm schon läuft, wie mach ich das dann? Da das Programm dann ja schon läuft, wird nur nochmals das Programm gestartet und sofort wieder geschlossen, weil ich nicht möchte, das das Programm 2 mal gestartet werden kann...
--------------------------------
so hab ich das gemacht:
Delphi-Quellcode:
unit not2times;
interface
implementation
uses windows,Dialogs,sysutils;
var mHandle: THandle;
Initialization
mHandle := CreateMutex(
nil,True,'
SidebarXPV');
if GetLastError = ERROR_ALREADY_EXISTS
then begin
{showMessage('Anwendung läuft bereits!!!!!');}
Halt;
end;
finalization
if mHandle <> 0
then
CloseHandle(mHandle)
end.
-----------------------------------
also wie kann man realisieren, das bei laufendem Programm angeklickte Lieder im Explorer zur Playliste hinzugefügt werden??? Wär echt super wenn mir jemand helfen könnte, selbst mein Chef hat keine Ahnung wie man das macht... und ich bin Lehrling...
Hope to hear from U
Danke schonmal im Vorraus!!!!!
tom
wer sich meinen Player...oder eher ne Sidebar mit Player anschaun will... es gibt hier schon die BETA Version:
http://mitglied.lycos.de/cylence666/...ncesidebar.exe
[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]