Prozesse starten und beenden mit TWAPI

source twapi.tm

puts [info tclversion]

set cmd twapi::create_process

lappend cmd [file join $::env(windir) notepad.exe]
set e [catch $cmd result]
set pid [lindex $result 0]

if { [twapi::process_exists $pid] == 1 } {
    puts "process running..."
}
puts "ended: $e, pid: $pid"
puts [twapi::get_process_path $pid]
puts [twapi::get_process_name $pid]

set chk 0
after 5000 {set ::chk 1}
vwait chk

catch { twapi::end_process $pid }

[code] ACHTUNG! HIER UMBRUCH WICHTIG. TAG [code] MUSS ALLEIN STEHEN
#include <stdio.h>

int main( void ){
    return 0;
} ACHTUNG! HIER UMBRUCH WICHTIG. NACHFOLGENDES TAG [/code] MUSS ALLEIN STEHEN
[/code]