10. Dezember 2013 09:04
10. Dezember 2013 09:45
10. Dezember 2013 11:44
10. Dezember 2013 14:16
10. Dezember 2013 14:34
.
.
WshShell Automation 'Windows Script Host Object Model'.WshShell
.
.
IF ISCLEAR(WshShell) THEN
CREATE(WshShell);
WshMode := 2;
WaitForEndOfCommand := TRUE;
CMD := STRSUBSTNO( 'cmd.exe /c "%1 "%2" %3"', Md5Exe,FileName , ' > ' + Tempfile);
WshShell.Run( CMD , WshMode, WaitForEndOfCommand );
file.TEXTMODE := TRUE;
file.OPEN( Tempfile );
IF file.LEN > 0 THEN
BEGIN
file.READ( Result );
END;
file.CLOSE;
ERASE( Tempfile );
p := STRPOS( Result, ' ' );
Result := COPYSTR( Result, 1, p );
10. Dezember 2013 15:47
12. Dezember 2013 15:26
12. Dezember 2013 20:34
16. Dezember 2013 13:34