Como Executar o Jogo Counter-Strike pelo Delphi ???

Delphi

14/10/2003

Bom pessoal, estou desenvolvendo um sistema para lanhouse e estou com o seguinte problema:


Do meu programa, a pessoa chama o jogo(para evitar que ingracadinhos deletem os atalhos ou o proprio jogo), so que estou com o seguinte problema;

como chama o jogo counter-strike.
o endereço do jogo é o seguinte

:arrow: D:\Sierra\Half-Life\HL.EXE -console -game cstrike

eu usei o WinExec ShellExecute e abre o jogo, mas ele nao joga..

Quem, por favor, tiver esse jogo em casa, faca esse teste por favor.

Agradeço desde ja.

ja usei

ShellExecute(Application.Handle, nil, PChar(´D:\jogos\Half-Life\HL.EXE´), nil, nil, SW_SHOWNORMAL);
ShellExecute(0,nil,´D:\jogos\Half-Life\HL.EXE´ ,nil, nil, SW_SHOWMAXIMIZED);
WinExec(´D:\jogos\Half-Life\HL.EXE´, SW_SHOWNORMAL);

e nada.

oTTo Husckows :shock:


Seek

Seek

Curtidas 0

Respostas

Cristianooli

Cristianooli

14/10/2003

No meu micro eu uso o Counter Strike 1.5 e deu certo com o comando winexec.

Eu utilizei este código:
WinExec(´´C:\Arquivos de programas\SIERRA\Half-Life\hl.exe´ -console -game cstrike´,SW_NORMAL);

Sistema Operacional:
Windows 98


GOSTEI 0
Seek

Seek

14/10/2003

eu aqui na empresa utlizo o win2000, sera esse o problema?


GOSTEI 0
Cristianooli

Cristianooli

14/10/2003

Pode ser!!!

Você já tentou chamar outro executável?

Tipo:
Calculadora, bloco de notas ou write.


GOSTEI 0
Seek

Seek

14/10/2003

ja tentei a abre sim cristiano....


procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec(´D:\jogo\Half-Life\HL.EXE -console -game cstrike´,SW_NORMAL);
end;

usei essa rotina PRA CHAMA cs, o jogo abre. so que nao entra no server, vem com recurso de half-life que nao era pra vim, etc e tals..

Quem tuver Xp poderia fazer esse teste pra mim por favor...


Agradeco..


GOSTEI 0
Seek

Seek

14/10/2003

ai galera, nao liguem pros erros ortograficos nao, é pq estou nervoso.


hheheh

á só, ja usei essas rotinas seguinte, nenhuma funcionou tanto no win2000 quanto win98.



declarei a clausula ShellAPI em users

ai fui la no 1 botao
WinExec(´D:\jogo\Half-Life\HL.EXE -console -game cstrike´,SW_NORMAL);

no 2
ShellExecute(Application.Handle, nil, PChar(´D:\jogo\Half-Life\HL.EXE -console -game cstrike´), nil, nil, SW_SHOWNORMAL);

no 3
ShellExecute(0,nil,´D:\jogo\Half-Life\HL.EXE -console -game cstrike´ ,nil, nil, SW_SHOWMAXIMIZED);

no 4
WinExec(´´d:\jogo\Half-Life\hl.exe´ -console -game cstrike´,SW_NORMAL);

--------------
:( e ai galera :?: :?: :?:


GOSTEI 0
Pamploni Cadé

Pamploni Cadé

14/10/2003

Olá,
Desenvolvi um Sistema para Lan e ele funciona bem. Resolvi este Problema que você está passando usando o seguinte:

jogo todos os atalhos para jogos e programas em uma pasta chamada atalho e executo cada programa pelo seu atalho:

ShellExecute(Application.handle,nil,pchar(´C:\atalho\atalho.lnk,nil,´C:\atalho´,SW_SHOW);

O Counter-Strike pega beleza. Talvez funcione com você pois no XP funciona.


GOSTEI 0
Imstaff

Imstaff

14/10/2003

Tente o site
http://www.ml-consult.demon.co.uk/foxst-26.htm

todomundo faz programa para lanhouse aqui? :wink:
Acho mais facil vc comprar um programa já feito hehehe
Qualquer coisa fale comigo, tenho a solução.


GOSTEI 0
Imstaff

Imstaff

14/10/2003

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/Shell/reference/functions/shellexecute.asp

Os parâmetros você coloca depois do caminho do executavel, de uma olhada.


GOSTEI 0
POSTAR