Forum: Object-Pascal / Delphi-Language
Delphi
by Marcasso,
18. Jan 2007
hey vielen vielen dank (:
den rest werde ich wohl mahcen können, danke :-)
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcasso,
18. Jan 2007
^wenn ich jetz egal welche files ziehe wird nichts der liste hinzugefügt /:
procedure TForm2.WMDROPFILES (var Msg: TMessage);
var i, j, anzahl, size: integer;
Dateiname: PChar;
begin
anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
Dateiname := AllocMem(Size);
try
if LowerCase(ExtractFileExt(Dateiname)) = '.mp3' then begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcasso,
18. Jan 2007
ich habe mit jetzt ExtractFileExt angeschaut
procedure TForm2.WMDROPFILES (var Msg: TMessage);
var i, j, anzahl, size: integer;
Dateiname: PChar;
begin
inherited;
anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
for i := 0 to (anzahl - 1) do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcasso,
18. Jan 2007
danke für den tipp mit der schreibweise von mp3^^ hätte ich übersehen,
aber leider habe ich in der delphi hilfe nichts gefunden zu copy
aber habe in andreren threads geschaut und konnte jetzt meinen fehler nicht finden, was soll denn daran falsch sein?
lg
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcasso,
18. Jan 2007
hallo ich habe in die drag and drogp procedure etwas hinzugefügt, dass nur mp3 files zusallen soll,
leider funktioniert dies nicht /:
procedure TForm2.WMDROPFILES (var Msg: TMessage);
var i, j, anzahl, size: integer;
Dateiname: PChar;
begin
inherited;
anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
for i := 0 to (anzahl - 1) do