para paldave
 

[delphi]
//..


private


{ Private declarations }


procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;





public


{ Public declarations }


end;


var


Form1: TForm1;


lista_archivos: TStringList;


i: integer;


cantidades: TStringList;


offset: integer =0;


//AÑadido 11 Sept


lista_aux:TStringList;





implementation


{$R *.dfm}


uses Unit2;


const foto_en_blanco = 'C:\foto_en_blanco.bmp';


const


DBT_DEVICEARRIVAL = $8000;


//----------------------------------------------


procedure RellenarFotos(f: integer); forward;


procedure RellenarFotos(f: integer);


begin


//si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1



if f

Lo que NO hay que hacer en los foros...
 

Por favor, revisa la Guía de estilo y EDITA tu mensaje.

* El título no es adecuado.
* El mensaje está fuera de lugar (para esto están los privados)
* Incompleto.
* TAG mal puestos.
* Redactado pésimamente (podías haber eliminado los espacios).

He dudado si borrarlo, pero creo que es mejor dejarlo para que el resto de gente vea ¡¡¡¡cómo no se debe escribir un mensaje!!! :mad::mad::mad: