Hola, pongo aquí el código de Unit1.
<DIV class=frame_codigo_delphi>Código Delphi
[-]<DIV class=texto_codigo_delphi id=delphi_div_46ee3635ce090>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons,JPeg;
type
TForm1 = class(TForm)
Image0: TImage;
Memo1: TMemo;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Fotos_ant: TBitBtn;
Fotos_sgtes: TBitBtn;
Cerrar: TButton;
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Fotos_antClick(Sender: TObject);
procedure Fotos_sgtesClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
// procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
// procedure FormDestroy(Sender: TObject);
procedure CerrarClick(Sender: TObject);
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;
{ MyJPEG : TJPEGImage;
MyBMP : TBitmap;
var jpg,bmp:string;
}
implementation
{$R *.dfm}
uses Unit2;
const foto_en_blanco = 'C:\foto_en_blanco.bmp';
const
DBT_DEVICEARRIVAL = $8000; //esto es algo que me pusieron en club delphi
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
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