![]() |
|< 1 2 3 >| | ![]() |
21 Einträge, 3 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#!perl use Win32::Process; $datei = "D:/tmp.txt"; Win32::Process::Create($ProcessObj, "C:/windows/notepad.exe", "notepad $datei", 0, DETACHED_PROCESS, ".") || die ErrorReport(); print "content-type: text/html\n\n"; print "<html><head></head><body>"; print "Notepad wurde gestartet. Process-ID: " . $ProcessObj->GetProcessID(); print "</body></html>"; sub ErrorReport { print Win32::FormatMessage( Win32::GetLastError() ); } exit;
1
2
3
4
5
6
Win32::Process::Create($ProcessObj,
"",
"notepad \"$datei\"",
0,
DETACHED_PROCESS,
".") || die ErrorReport();
1
2
3
4
5
6
Win32::Process::Create($ProcessObj,
"",
qq~$ENV{SystemRoot}/notepad.exe "$datei"~,
0,
DETACHED_PROCESS,
".") || die ErrorReport();
qq~$ENV{SystemRoot}\\notepad.exe "$datei"~,
![]() |
|< 1 2 3 >| | ![]() |
21 Einträge, 3 Seiten |