Starte CounterStrike / half-life

brug den her funktion :

function ExecAndWait(Filename, Parameter: string; nCmdShow: integer): longword;
var
    zAppName: array[0..max_path] of char;
    zParameter: array[0..max_path] of char;
    zCurDir: array[0..max_path] of char;
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
begin
  StrPCopy(zAppName,FileName);
  StrPCopy(zParameter,Parameter);
  StrPCopy(zCurDir,GetCurrentDir());
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb:=Sizeof(StartupInfo);
  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:=nCmdShow;
  if not CreateProcess(zAppName,zParameter,nil,nil,false,CREATE_NEW_CONSOLE or  NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo) then
    Result:=0
    else
    begin
      WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess,Result);
    end;
end;

og kan den sådan her :

    ExecAndWait(FileName,\'\', sw_normal);

Jens B

Har du testet den med Counterstrike?

spectual  >> Jeg ved ikke hvad Counterstrike er. Men den ovenstående funktion eksekvere en fil og retunerer når den er færdig ...

Jens B

CounterStrike er et spil. Jeg skal nok teste din funktion i aften, men det virker formindtlig ikke med CounterStrike, da det er lidt specielt.

Jeg prøvede selv i går med createprocess, men CounterStrike brokkede sig over at denne ikke kun starte nogle threads eller hvad det nu var.

Måske et rettighedsproblem?

har du prøvet med Shellexecute???

et ex...

shellexecute(handle, \'open\', pchar(\'{her skal stien til din half-life mappe stå + din HL.EXE, og hvis du skulle starte CS, skal du have dette med \" -game cstrike\"}\'), \'\',\'\', SW_SHOW);

dette her burde kunne åbne half-life i CS-mode...

/ZIRON

Grunden til at jeg ville bruge CreateProcess var at jeg skal kunne terminate det, når jeg har lyst til det.

Kan det lade sig gøre med shellexecute?

CounterStrike laver vist en hel del threads og andre mærkværdige ting - man burde kunne tilpasse CreateProcess til formålet.

Jeg har testet \"Winexec\" og det virker, men der kan jeg vist ikke terminate det fordi jeg ikke får noget handle fra den.

Hvad mener du ziron?

hvorfor skal du kunne terminate???

/ZIRON

spectual  >> Virker det ?

Jens B

ziron: >> Fordi at mit program skal tage fuld control over CounterStrike og kunne afslutte på hvilket som helst tidspunkt.

borrisholt >> JAAAAA!!! :-D Herlig rutine du havde der :)

Tak.