[[egostar]]

Como hoy estoy se está festejando el cumpleaños del perro de egostar

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFirst('c:\temp\cartas.txt', faAnyFile, SearchRec);
  Label1.Caption := copy(ExtractFileName(SearchRec.Name), 1,
      pos(ExtractFileExt(SearchRec.Name), ExtractFileName(Searchrec.Name)) - 1);
end;

Salud OS