سوال : پیدا کردن مسیر فایل با درگ کردن فایل روی فرم در دلفی

[EnMojtaba]

سلام دوستان . کسی می دونه چطور می تونم در دلفی با درگ کردن فایل روی فرم برنامه اطلاعات فایل رو پیدا کنم مثل نام ، مسیر ، نوع ، حجم و ...

 

[farhad110]

سلام.
-ShellAPI رو use کنید
-یک کنترل TMemo روی فرم قرار بدید
-کد زیر رو در Form Create بنویسید:

DragAcceptFiles( Handle, True ) ;

-تابع زیر رو اضافه کنید:

procedure Tform1.WMDROPFILES(var msg: TWMDropFiles);
const
  MAXFILENAME = 255;
var
  cnt, fileCount : integer;
  fileName : array [0..MAXFILENAME] of char;
begin
  fileCount := DragQueryFile(msg.Drop, $FFFFFFFF, fileName, MAXFILENAME) ;
  for cnt := 0 to -1 + fileCount do
  begin
    DragQueryFile(msg.Drop, cnt, fileName, MAXFILENAME) ;
    memo1.Lines.Insert(0, fileName) ;
  end;
  DragFinish(msg.Drop) ;
end;

کد بالا مسیر فایل رو برمیگردونه. بدست آوردن بقیه اطلاعات کار مشکلی نیست
منبع: delphi.about.com
موفق باشید

 

[EnMojtaba]

خیلی ممنون دوست عزیز مشکلم رو حل کردی.