MENDETEKSI KEBERADAAN FILE FLASH (*.SWF) DI DALAM SUATU FOLDER

source kode untuk Mendeteksi keberadaan file Flash (*.swf) di dalam suatu folder

event nya pada form show


procedure TForm1.FormShow(Sender: TObject);
var FileSearch:TSearchRec;
S,TempF,Ucode:String;
FileAttrs:Integer;
AppPath:string;
begin

// ListBox1.Items.Clear;
//target pencarian
AppPath:= ExtractFilePath(application.ExeName) + 'Media\*.swf';
if findfirst(S,faDirectory,FileSearch) <> 0 then
FileAttrs:=faArchive;
if FindFirst(AppPath, FileAttrs, FileSearch) = 0 then
begin
Ucode:=FileSearch.Name;
// ListBox1.Items.Add(Ucode);
while FindNext(FileSearch) = 0 do
begin
Ucode:=FileSearch.Name;
//masukan hasil pencarian ke listbox
// ListBox1.Items.Add(Ucode);
end;
FindClose(FileSearch);

sfPlayer.Movie := ExtractFilePath(application.ExeName) +'Media\' + Ucode;;
sfPlayer.GotoFrame(1);
sfPlayer.Play;
end;
end;