error al ejecutar archivo java con ShellExecute

[danielmj]

Hola, intento llamar a un archivo java de esta forma:

Código Delphi [-]
procedure TForm1.brButtonClick(Sender: TObject);
begin
  if open.Execute then
    sEdit1.Text:= open.FileName
end;

procedure TForm1.button1Click(Sender: TObject);
begin
  ShellExecute(0, nil, 'java.exe', 'java -cp'+' '+sEdit1.Text+' '+'com.sheepit.client.standalone.Worker -login '
    +edit1.Text+'-password '+edit2.Text);
end;

Pero me da este error:

[dcc32 Error] jav.pas(47): E2010 Incompatible types: 'PWideChar' and 'string'

¿como debo escribir la linea del ShellExecute si los valores usuario y password los tomo de dos edit? y por otra parte, si ejecuto el archivo java desde la ventana de comandos de windows, me muestra un progreso en tanto porcierto, ¿habría forma de mostrar este progreso en un memo o mejor aun en una barra de progreso?

Un saludo y gracias.

[[escafandra]]

Tienes que pasar un PWCHAR no un String en el cuarto parámetro:

Código Delphi [-]
ShellExecuteW(0, nil, 'java.exe', PWCHAR('java -cp' + ' ' + sEdit1.Text+ ' ' + 'com.sheepit.client.standalone.Worker -login ' + edit1.Text + '-password ' + edit2.Text), 0, 0);

Saludos.

[danielmj]

hola escafandra, gracias voy a ver que tal. un saludo.