Noget i garenteret ved...

Kode 

var
  s: String;
begin
  s := 'c:\\minfil.txt';
  s := ExtractFileName(s);
  s := ChangeFileExt(s, '');
  ShowMessage(s);
end;

Kode 

[b]uses[/b] ShellApi
..

type TForm1...
  private
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
...


Dette skal i formens OnCreate:
DragAcceptFiles(ListBox1.Handle, True);

Dette skal i formens OnDestroy:
DragAcceptFiles(ListBox1.Handle, False);



procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  sFileName: array [0..MAX_PATH] of Char;
  I, iFilesCount: Integer;
begin
  try
    iFilesCount := DragQueryFile(Msg.Drop, $FFFFFFFF, sFileName, MAX_PATH);
    for I := 0 to iFilesCount - 1 do
      if DragQueryFile(Msg.Drop, I, sFileName, MAX_PATH) > 0 then
      begin
        // din kode ...
        ListBox1.Items.Add(sFileName);
      end;
  finally
    DragFinish(Msg.Drop);
  end;
end;

Kode 

var
  i: Integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
    ListBox1.Items.Strings[ i] :=  ExtractFileName('C:\\megalangtfilnavn\\mappe\\sang.mp3');
end;

Hvis alle items skal ha den teksten som de har heller, kan du bruke ExtractFileName(ListBox1.Items.Strings[i ]);
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

[Redigeret d. 02/01-05 01:08:20 af DiZpel]

form1.Label1.Caption := Copy(ExtractFileName(mediaPlayer1.Filename), 0, Length(ExtractFileName(mediaPlayer1.Filename))-Length(ExtractFileExt(mediaPlayer1.Filename)));

Denne kode bruger jeg til at skrive: Navnet (uden filtype). Det er sådan set en masse funktioner blandet sammen! Prøv vær enkelt... Du vil hurtigt finde ud af vær enkels funktion...