|
unit ThreadExecute;
interface
uses
//----------------------------------------------------------------------------
//local
//----------------------------------------------------------------------------
UnitRedirect,Utilities,OwnUtils,Optionclass,
//----------------------------------------------------------------------------
//global
//----------------------------------------------------------------------------
Classes,Dialogs,MMSystem,SysUtils;
type
TMyThread= class(TThread)
private
{ Déclarations privées }
protected
procedure Execute;override;
public
id:Cardinal;
ptr:integer;
this:integer;
hmod:Cardinal;
commandstring,Stdout,Stderr,Stdin:String;
vr:Cardinal;
end;
implementation
//TMyThread
procedure TMyThread.Execute;
begin
inherited;
hmod:=0;
Stdout:='';
Stderr:='';
Sto_RedirectedExecute(commandstring,Stdout,Stderr,Stdin,opt.r.timeout*1000);
end;
end.
¤ Dauer der Verarbeitung: 0.14 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
