code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Procedure RunFile(psInstring:String);
var PCharArr:PChar;
sInfo:StartupInfo;
pInfo:Process_Information;
begin
PCharArr := AllocMem(SizeOf(Char)*(Length(psInstring)+7));
try
{This is a startupinfo for CreateProcess}
FillChar (sInfo, SizeOf (sInfo), 0);
sInfo.cb := SizeOf (sInfo);
CreateProcess(nil,StrPCopy(PCharArr,('Start '+psInString)),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
finally
freemem(PCharArr);
end;
end; |
Probleem: Start.exe genereert een console schermpje dat irritant een momentje naar voren komt. Ik wil dat scherm verbergen (minimaliseren of gewoon helemaal verbergen). Ik heb het geprobeerd met de StartupInfo structure, dat had echter weinig effect. Heeft hier iemand een tip voor me?
Forget your fears...
...and want to know more...