[kapullok_2006]

[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