dateien in mein programm laden

[stromer]

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