nop geht so nicht es starten zwei Instanzen.
initialization
Delphi-Quellcode:
hMutex := CreateMutex(nil, true, 'KVPlayer');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
if ParamCount > 0 then
SendMessageW(MainHandle, WM_COMMANDLINE, 0, 0)
end
else
Halt;
end;
sorry!
Es bringt mir nichts wenn du versuchst meinen Code zu optimieren ich weiß schon warum ich lowercase verwende.
Wenn mir jemand das Extension als MP4 anstelle von mp4 oder Mp4 schickt dann benötige ich das lowercase...
Die Extension sind als lowercase definiert wenn ich den übergebenen string nicht vorher zuschneide so das er passt wird das Extension nicht gefunden.
Zitat:
SplittString
MatchText
benötige ich auch nicht. Ich mache das auf meine weise.
Zitat:
und dafür nur bissl nicht ganz funktionierenden
Er funktioniert sonst würde mein Video nicht abspielen oder?
Wie immer es führen viele Wege nach Köln.
gruss