Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 21-08-2004
Avatar de salvica
salvica salvica is offline
Miembro
 
Registrado: mar 2004
Ubicación: Albacete (España) ... En un lugar de la Mancha ...
Posts: 304
Poder: 23
salvica Va por buen camino
Talking

Gracias ruina, he comprobado que solo tengo el problema cuando ejecuto el programa en modo "shell", si lo ejecuto directamente funciona
Código Delphi [-]
     .....
     tmpDir   := GetCurrentDir;
     {$ifdef LINUX}
        tmpCab := 'LINUX';
        libC.system(PChar('echo "[LINUX]" > '    +tmpDir+'/user.ini'));
        libC.system(PChar('echo "home=$HOME" >> '+tmpDir+'/user.ini'));
     {$else}
        tmpCab := 'WINDOWS';
        UserIni := TIniFile.Create( tmpDir+'/user.ini' ); 
        UserIni.WriteString( tmpCab, 'home', 'C:\PROGRAMAS' );
        UserIni.Free;
     {$endif}
     UserIni := TIniFile.Create( tmpDir+'/user.ini' ); 
     DIR_MAIN := UserIni.ReadString( tmpCab, 'home', '' );
     UserIni.Free;
     if( DIR_MAIN='' ) then begin
        { mensajes para aplicación no instalada }
        .....
        Application.Terminate;
        exit;
     end;
     .....
Vamos que solo quiero saber donde voy a tener los directorios de trabajo de la aplicación (y ya que estoy con el Linux, pués aprender algo más)

Otra cosa (morro tengo) hay mucha documentación y ejemplos para evitar dos instancias del mismo programa, pero solo lo he visto para Windo$ ¿No hay nada para Linux?

Gracias adelantadas
Salvica
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:08:32.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi