Prog. nur einmal starten.Parameter an erstes Weitergeben?

[mimi]

ich habe den code aus der code-lib genommn,und beim starten erhalte ich folgende fehermledung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Textanzeiger.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 00489453 in Modul 'Textanzeiger.exe'. Lesen von Adresse 000006C0'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

und an dieser stelle:

Code:

class procedure TSingleInstance.WndProc(var Msg: TMessage); 
// das ist die Fensterprocedure von WndHandle, sie empfängt innerhalb 
// der 1. Instance die wm_CopyData Message mit der CommandLine der 
// 2. Instance 
begin 
  with Msg do 
    if (Msg = wm_CopyData) and (PCopyDataStruct(lParam).dwData = cMagic) then  // hier die fehlermeldung
    begin 
      Result := cResult; 
      CmdLine := PCopyDataStruct(lParam).lpData; 
      OnStartup; 
    end else Result := DefWindowProc(WndHandle, Msg, wParam, lParam); 
end;

und sTitle = 'Textanzeiger:1.0Z$123456789'; ist doch richtig ??? das ist der caption in mein haupt form

[Christian Seehase]

Moin Michael,

den Fehler kann ich mir im Moment nicht erklären. :gruebel:
Such' hier mal nach WM_COPYDATA oder CreateSemaphore, da müsstest Du noch ein paar Möglichkeiten finden.

[SirThornberry]

Also bei Winamp wird die liste nur geleert wenn zwischen dem hinzufügen von liedern zu viel zeit vergeht. Wenn man also 20 mp3s gleichzeitig öffnet werden diese alle in die liste aufgenommen weil während dem öffnen der 1ten, 2ten etc. mp3 wenig zeit vergeht und winamp somit weiß das diese vermutlich alles aufeinmal geöffnet werden. Ganz einfach kann man das testen wenn man in einer schleife mit shellexecute hintereinander mp3-dateien öffnet (wenn diese mit winamp verknüpft sind). Sobald man in die schleife ein ausreichend langes wait einbaut so wird jede datei einzeln geöffnet ansonsten alle auf einmal und in der liste angefügt