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