Forum: Object-Pascal / Delphi-Language
Delphi
by kaju74,
15. Apr 2016
benutzt ja, so gesucht, nein ;-))
Danke,
Marc
Forum: Object-Pascal / Delphi-Language
Delphi
by kaju74,
15. Apr 2016
Einfrieren, tut folgender Code:
if CreateProcess(nil, PChar(TNXStrings.Format(FileName, Params)), @SecAttributes, @SecAttributes, True, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, Process) then
try
{ loop while running }
repeat
{ update running flag }
Running := WaitForSingleObject(Process.hProcess, 100);
Forum: Object-Pascal / Delphi-Language
Delphi
by kaju74,
15. Apr 2016
So, habe mir aus den genannten Infos mal was zusammengestrickt, was auf den ersten Blick zu funktionieren scheint:
class function TNXEnviroment.IsConsoleApp(const FileName: string): Boolean;
var
Stream: TFilestream;
Signature: DWORD;
PE_HEADER: IMAGE_FILE_HEADER;
OPT_HEADER: IMAGE_OPTIONAL_HEADER;
DOS_HEADER: IMAGE_DOS_HEADER;
begin