weitere instanzen verhindere ich folgendermaßen:
Delphi-Quellcode:
InstCheck := CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
if ((InstCheck <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
CloseHandle(InstCheck);
Halt;
end;
-bevor diese aber beendet werden, müssten sie ihre attribute aber doch an die erste instanz schicken, wie mache ich das?
-in deinem kleinen beispielprogramm wird dann mit den empfangenen attributen weitergearbeitet,
da ist doch diese zeile entscheident, oder?
Delphi-Quellcode:
if (Msg.CopyDataStruct.dwData = SecondInstMsgId) and (SecondInstMsgId <> 0) then
ProcessCommandline(Msg.CopyDataStruct.lpData)
und nochmal ein herzliches dankeschön, in 10 min iss weihnachten!
stromer