|
dev.gamez.lv Latvian Game Developers Community
|
View previous topic :: View next topic |
Author |
Message |
ytterbium
Joined: 19 Apr 2004 Posts: 33
|
Posted: Sun May 23, 2004 1:50 pm Post subject: exec |
|
Ka no delfiem palaist citu programmu un tikmeer "iesaldeet" savejo kamer ta otra beidz darbu, nu apmeram ka exec(ja nemaldos) paskalaa, un pec beigshanas atgriezties sava programmaa. |
|
Back to top |
|
|
Kamazs Guru
Joined: 17 Jan 2003 Posts: 829 Location: The glorious ancient city of Loja
|
Posted: Sun May 23, 2004 2:12 pm Post subject: |
|
Paskaties ieksh Delphi Helpa ShellExecute(..) sintaksi un parametrus. Tas gan tikai palaidiis otru programmu, iesaldeet iisti neiesaldees. Lai iesaldeetu vajadzees shitaadu funkciju -
Quote: |
function WinExecAndWait32(FileName:String):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
if not CreateProcess(nil,
zAppName, { komandrindas parametri}
nil, { process security}
nil, { thread security }
false, { inheritance}
CREATE_NEW_CONSOLE or { flagi taisot}
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
else begin
repeat
GetExitCodeProcess(ProcessInfo.hProcess,dword(Result));
application.processmessages;
until Application.Terminated or (result <> STILL_ACTIVE);
end;
end;
|
Shito kaut kur guuglee atradu, biok pamainiiju, straadaa kaa vajag. Pahrii kaa reiz vareeja redzeet piemeeru kaa taa darbojaas. _________________ ...un es uzskatu, ka Fallout ir etalons |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|