Win32::Process::Create($ProcessObj,
                     "",
                     qq~$ENV{SystemRoot}/notepad.exe "$datei"~,
                     0,
                     DETACHED_PROCESS,
                     ".") || die ErrorReport();