Ver Mensaje Individual
  #3  
Antiguo 29-06-2004
Avatar de ruina
ruina ruina is offline
Miembro
 
Registrado: jun 2004
Posts: 196
Reputación: 20
ruina Va por buen camino
lo malo es que en linux no te funcionará el shellexecute

supongo que podrias usar libc.system('comando'); (aunque no estoy seguro de que funcione)y con defines ejecutar una linea u otra:

Código Delphi [-]
uses Classes
{$IFDEF LINUX}
{$ENDIF}
{$IFDEF MSWINDOWS}
    ,shellapi,windows
{$ENDIF}
;
......
 
function AbrirURL(direccion:string):boolean;
begin
{$IFDEF MSWINDOWS}
     ShellExecute(0,'open',Pchar(direccion),nil,nil,SW_SHOWNORMAL);
{$ENDIF}
{$IFDEF LINUX}
    libc.system(direccion); 
{$ENDIF}
end;

si funciona cuentanoslo ^_^
Responder Con Cita