Получение пути к файлу путем перетаскивания

[k1r1ch]

Мне нужно сделать так, чтобы при перетаскивании объекта из проводника на Edit путь отображался в этом Edit'е. Вот этот пример я переделал под себя:

uses ShellAPI;

type  
  procedure FormCreate(Sender: TObject);
  protected
    procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;

procedure TNewForm.FormCreate(Sender: Tobject);
begin
  DragAcceptFiles(NewForm.Handle, true);
end;

procedure TNewForm.WMDROPFILES (var Msg: TMessage);
var
  i, amount, size: integer;
  Filename: PChar;
begin inherited;
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
  for i := 0 to (Amount - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Filename:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Filename, size);
    PathEdit.Text := StrPas(Filename);
    StrDispose(Filename);
  end;
  DragFinish(Msg.WParam);
end;

Все запускается без ошибок, но не работает (курсор не изменяет вид при наведении на Edit с зажатым файлом).
И еще. Я не особо понял этот код, но вроде тут поддерживается перетаскивание нескольких файлов за раз. Эту функцию надо убрать, но я не понимаю что конкретно.

[blackstersl]

Что б путь отображался исспользуй PathEdit.Text := extractfilepath(StrPas(Filename));

[Ntlegend]

добавь

type  
  procedure FormCreate(Sender: TObject);
  procedure CreateParams(var Params: TCreateParams); override;
  protected
    procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;

и собстра сама процедура:

procedure TMainFrm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

и будет тебе счатье.. а по поводу

Я не особо понял этот код, но вроде тут поддерживается перетаскивание нескольких файлов за раз. Эту функцию надо убрать, но я не понимаю что конкретно.

не понимаешь что делаешь - не делай.. если хочешь програмировать - так читай книжки.. и ты все будешь понимать

[k1r1ch]

Вот теперь работает! Спасибо.
А какая процедура выделяет путь из ярлыка (если например я перетащю ярлык, то должен быть указан путь к объекту)?
Насчет книжек)
Я и так читаю книжку по Delphi, но во-первых теория без практики скучновата, во-вторых, такого я там не нашел. Извините за глупые вопросы, но у меня опыт программирования - 2 месяца.

[Ntlegend]

в книжках азы.. без знания их ты не будешь понимать остальное.. если информацыи в книжке не достаточно - то есть яндекс..

для получения пути к из ярлыка юзай от такую функцыю

uses ShlObj, ActiveX, ComObj;
***
function GetFileNameFromLink(const FileName: String): String;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  FileInfo: TWin32FINDDATA;
  WidePath: array[0..MAX_PATH] of WideChar;
  Buff: array[0..MAX_PATH] of Char;
begin
  Result := FileName;
  try
    CoInitialize(nil);
    MyObject := CreateComObject(CLSID_ShellLink);
    MyPFile := MyObject as IPersistFile;
    MySLink := MyObject as IShellLink;
    FillChar(WidePath, SizeOf(WidePath), 0);
    StringToWideChar(FileName, WidePath, SizeOf(WidePath));
    MyPFile.Load(WidePath, STGM_READ);
    MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
    Result := Buff;
  except
  end;
end;

текже можна получить дополнительные параметры.. с которыми запускается приложение (смотри GetArguments) и иконку ярлыка (GetIconLocation)

[k1r1ch]

Спасибо!!!

А как получить имя файла без расширения? ExtractFileName оставляет расширение, может есть какой аналог (типо ExtractFileNameWithoutExt )?

[Ntlegend]

var s:string;
     i:integer;
begin
s:=ExtractFileName(FiltName);
for i:=Length(s) downto 1 do
 if s[i]='.'
  then break;
Delete(s, i, Length(s));
end;

говорю же читай книги там сказано что из себя представляет строка..

[k1r1ch]

Все работает! Жалко нельзя 2 раза подряд спасибо ставить))

s[i]

То есть выход что переменная типа String это массив Char?! Обалдеть...