Fórum Problema com o Timer #228451

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, MPlayer;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ListBox1: TListBox;
    Image1: TImage;
    Edit1: TEdit;
    ListBox2: TListBox;
    MediaPlayer1: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  contador:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
 var
  Rec : TSearchRec;
  i: integer;
  caminho, tparq, tarq1:string;
   begin
    contador:=0;
    tarq1:=´*.mp3´;
    tparq:=´*.bmp´;
     for i:=0 to 5 do
      begin
       caminho:=´C:\teste\projetos-0´+IntToStr(i)+´\´;
        if SysUtils.FindFirst(caminho+tparq,faAnyFile, Rec) = 0 then
         begin
          repeat
           ListBox1.Items.add(caminho+rec.Name);
          until SysUtils.FindNext(Rec) <> 0;
           if SysUtils.FindFirst(caminho+tarq1,faAnyFile, Rec) = 0 then
            begin
             repeat
              ListBox2.Items.add(caminho+rec.Name);
             until SysUtils.FindNext(Rec) <> 0;
            end;
         end;
      end;
   end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Image1.Picture.LoadFromFile(ListBox1.Items[contador]);
inc(contador);
if contador = ListBox1.Items.Count then
contador:=0;
end;
end.



PROGRAMA 2)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl, StdCtrls, ExtCtrls, MPlayer;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    DirectoryListBox1: TDirectoryListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    procedure pasta(aLista: TStrings);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  contImg: integer;

implementation

{$R *.dfm}

procedure TForm1.pasta(aLista: TStrings);
var
Rec : TSearchRec;
conta, i: integer;
begin
  conta:=0;
  for i:= 0 to (ListBox1.Count-1) do
    begin
     if SysUtils.FindFirst(´c:\teste\´+aLista[i]+´\*.bmp´,faAnyFile, Rec) = 0 then
      begin
        repeat
         conta:=conta+1;
         ListBox2.Items.add(´´+(inttostr(i))+´ - ´+(inttostr(conta))+´ - ´+rec.Name+´´);
         ListBox3.Items.Add(inttostr(conta));
         Label2.Caption:=inttostr(i);
        until SysUtils.FindNext(Rec) <> 0;
      end;
     SysUtils.FindClose(Rec);
    begin
     Label1.Caption:=inttostr(ListBox2.Count);

    end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
x, p, t:Integer;
 begin
  ListBox1.Clear;
  DirectoryListBox1.Directory:=´c:\teste\´;
   for x:=0 to DirectoryListBox1.Count - 1 do
    begin
     p:=Pos(DirectoryListBox1.Directory,DirectoryListBox1.GetItemPath(x));
     t:=length(DirectoryListBox1.GetItemPath(x)) - length(DirectoryListBox1.Directory);
      if (p > 0) and (t > 0) then
       begin
        ListBox1.Items.Add(copy(DirectoryListBox1.GetItemPath(x),length(DirectoryListBox1.Directory)+2,t));
       end;
     contImg:=1;
    end;
     begin
      pasta(ListBox1.Items);
     end;
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:integer;
  begin
         timer1.Interval:= 100;
//esse for acho que naum tá bem colocado, mas é uma tentativa
       for a:=0 to (ListBox1.Items.Count-1) do
              Image1.Picture.LoadFromFile(´C:\teste\´+listbox1.items[a]+´\Imagem´+FormatFloat(´000´,contImg)+´.bmp´);
              Inc(contImg);
        if contImg=4 then
         contImg:=1;
  end;
  end.

type
  TSndProcess = class (TThread)
  public
    constructor Create (CreateSuspended: Boolean);
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  SndProcess: TSndProcess;           // Variavel declarada

implementation

{$R *.DFM}

constructor TSndProcess.Create (CreateSuspended: Boolean);
begin
  inherited Create (CreateSuspended);
end;

procedure TSndProcess.Execute;
begin
  SndPlaySound (PChar (´C:\arquivo.wav´), SND_LOOP);
end;

initialization
  SndProcess := TSndProcess.Create (TRUE);
finalization
  SndProcess.Free;

end.                                // Ultimo end da unit

SndProcess.Resume;

// Interrompe o som mesmo que este não tenha chegado ao fim
  SndPlaySound (nil, Snd_ASync or Snd_Memory);
// Suspende a exibição do thread
  SndProcess.Suspend;