Entwickler-Ecke

Sonstiges (Delphi) - Anwendungen starten


Camputa - Mo 08.07.02 22:11
Titel: Anwendungen starten
Hi
ich wüsste gerne wie ich anwendúngen starten kann UND gleichzeitg parameter übergebe
Beispiel:
quake3.exe -connect 111.222.333.444:1234 -passwort 12341234

Danke für eure antwort


RFZ - Mo 08.07.02 23:23


Quelltext
1:
2:
3:
uses ... Shellapi;

shellexecute(1,'open',pchar('c:\quake3.exe'),pchar('-connect 111.222.333.444:1234 -passwort 12341234'),pchar('c:\'),1);


cu RFZ


Camputa - Mo 08.07.02 23:47
Titel: ff
ich hab folgendes gemacht

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
procedure fake(x:Integer);
var
xxy: string;
zzz: string;
begin
if form1.Edit1.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 1 gemacht!')
else if form1.Edit3.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 2 gemacht!')
else if form1.Edit4.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 3 gemacht!')
else if form1.Edit5.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 4 gemacht!')
else
  begin

   showmessage('Sie werden sofort zu '+form1.Edit1.Text + '.'+ form1.Edit3.text+ '.'+ form1.Edit4.text+ '.'+ form1.Edit5.text+ ':'+ form1.Edit2.text+' verbunden. Viel Spass');
   if form1.edit6.text = '' then
   zzz:= ''
   else
   zzz:= ' +password '+form1.Edit6.Text;
   xxy:= form1.Edit7.Text+' +connect '+form1.Edit1.Text +'.'+ form1.Edit3.text+'.'+ form1.Edit4.text+'.'+ form1.Edit5.text+':'+ form1.Edit2.text+zzz;
   WinExec(xxy);
  end;
end;


dann bekomm ich aber den fehler:
Inkompatible Typen: String und PChar

denek für weitere HIlfe


DieHardMan - Di 09.07.02 06:17

geh mal in das sonstiges forum, scroll ein bisschen runter und mach die augen auf.


Maxigraf - Di 09.07.02 07:24

Es muss so heissen:

Quelltext
1:
WinExec(pchar(xxy),sw_show);                    


MfG Maxigraf


Camputa - Di 09.07.02 11:33
Titel: danke
danke ich ahtte es zwar inzwischen selber gefunden aber troztdem danke ;P