Ich habe die Funktion jetzt ausgelagert.
Delphi-Quellcode:
// Commandline Parameter auswerten
if ParamCount > 0 then
ExecuteCmdLine;
Bei initialization habe ich versucht den
Mutex umzuleiten allerdings kracht es dann.
Dürfte aber doch eigentlich nicht oder?
Delphi-Quellcode:
initialization
if GetLastError = ERROR_ALREADY_EXISTS then
begin
if ParamCount > 0 then
ExecuteCmdLine
else
Halt;
end;
Zitat:
Schicken mit
Schicken tue ich die Datei über DragDrop.
Und starte die EXE mit
Delphi-Quellcode:
ShellExecute(0, 'open', PWideChar(gS[nObjectID].ShellTo), PWideChar(sCmdLine), PWideChar
(gS[nObjectID].WorkDir), gS[nObjectID].ShowCmd)
Ich versuch mal was anderes..
gruss