ActiveDelphi

[JulioSkin]

E ae pessoal blz? Feliz 2007 para todos!

To com dúvida no winexec pois veja:

Eu preciso executar o programa com alguns parametros da seguinte maneira:

Por exemplo: (o [+map "map"] é o parametro)

"C:\Jogos\Jogo.exe" +map "nomemap"

Eu tentei assim com o winexec:

winexec(pchar(executaveljogo.text)+'+map "'+pchar(nomemap.text)+'"',SW_NORMAL);

Obs->O executavel foi selecionado e colocado num edit e o map em outro edit...


Existem outros parametros que eu posso utilizar como por exemplo -dev, - nojoy etc.. e eles precisam vir depois do executavel.

Agradeço, t+!

[JulioSkin]

Usei assim para executar com o parametro

winexec(Pchar(executavel.text+' +map "'+mapa.text+'"'),sw_normal);

Agora o seguinte existem 12 parametros diferentes possíveis e eu adcionei 12 checkbox, entretando como agora faço para adicionar o parametro selecionado ao winexec ?

Abraço, t+!

[JulioSkin]

Pessoal já resolvi o caso dos checkbox, agora alguém me ajuda a tirar a extensão do arquivo.

Tentei assim:

procedure TForm2.FileListBox1Click(Sender: TObject);
var
a,b:string;
begin
a := ExtractFilename(filelistbox1.filename);
b := ExtractFileExt(filelistbox1.filename);
mapa.Text:=a-b;
end;

mas ta na cara que não dá, como que faço isso?

[gustavocco]

Olá, não testei aqui, mas tentai... qqr coisa posta...

[johnny-walker]

Olã amigo....

tinha um programa que adotava o seguinte...

Tinha uma Variãvel que acumulava os paramentros

[JulioSkin]

HUm obrigado aos dois!

Jonny Achei interessante isso, vo adotar aqui pois o modo como eu fiz ficou meio "grosseiro".

[JulioSkin]

To com problema para declarar a constante ela tem q ser isso:

Const
Executavel = 'steam.text+' -applaunch 10'+' +map "'+mapa.text+'"';

Pois:

winexec(Pchar(steam.text+' -applaunch 10'+' +map "'+mapa.text+'"'+Param);