Управление ярлыками

[FatumS]

Подскажите кто нибудь как перетащить ярлык с рабочего стола на свою форму, причем чтобы он был полностью функционален. Очень нужно.

[Ntlegend]

{Так можно заставить окно принимать файлы, перетаскиваемые из проводника}
{ОБЯЗАТЕЛЬНО ПОМЕСТИТЕ В СЕКЦИЮ PRIVATE СТРОКИ

procedure CreateParams(var Params: TCreateParams); override;
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
и не забудьте - ShellAPI поместить в uses}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin

  inherited
    CreateParams(Params);
  {сделаем окно способным принимать файлы}
  Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var

  aFile: array[0..255] of Char;
  //FilesCount : Integer;
begin

  inherited;
  {так можно узнать сколько файлов перетягивается}
  // FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);

  begin
    {здесь можно поставить цикл открытия всех перетаскиваемых файлов

    for N := 0 to FilesCount - 1 do DragQueryFile(Message.drop, N, aFile, 256);
    а в данном случае открывается только первый файл в списке}
    DragQueryFile(Message.drop, 0, aFile, 256);
    Memo1.Lines.LoadFromFile(aFile);
  end;
  DragFinish(Message.Drop);
end;

procedure TForm1.FormCreate(Sender: TObject); {Form1.OnCreate}
begin
  {сделаем окно неравнодушным к пролетающим над ним файлам}
  DragAcceptFiles(Handle, True);

а получив путь к ярлыку делай остальное.. что там тебе нада..

[BaronTreep]

Чуть подробнее:

uses
  ... ShellAPI;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
    procedure Drop(const FileName : String; X, Y : Integer);
  public
  end;

type                          // Новый тип для иконок на ТВОЕМ рабочем столе
  TLink = class(TImage)
  procedure Click(Sender: TObject);
  procedure DblClick(Sender: TObject);
  procedure SlowDblClick(Sender: TObject);
  procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  procedure ImageMouseDown(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  procedure ImageMouseUp(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
  public
    Way : String;       // Путь к файлу
  end;

var
  Form1: TForm1;
  Xdrop, Ydrop : Integer;            // Место броска
  Counter : Word = 0;                  // Счетчик кол=ва иконок
  Link : array [1..500] of TLink;     // Массив иконок

implementation

{$R *.DFM}

{
 Тут реализуешь методы TLink - клики, перемещения и т.д.
}

procedure TForm1.Drop(const FileName : String;  X, Y : Integer);
begin
  inc(Counter);
  Link[Counter] := TLink.Create(self);       // Создаем иконку
  Link[Counter].Parent := Self;
  Link[Counter].Width  := 32;
  Link[Counter].Height := 32;
  Link[Counter].Left := X -16;
  Link[Counter].Top := Y -16;
  Link[Counter].way := FileName;
  Link[Counter].Picture.LoadFromFile(...);   // Тут надо вытаскивать изображение - отдельная тема...
end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  PFileName: array [0..255] of Char;
begin
  try
    if DragQueryFile(Msg.Drop, 0, PFileName, MAX_PATH) > 0 then
    begin
      Msg.Result := 0;
      Drop(PFileName, Xdrop, Ydrop);
    end;
  finally
    DragFinish(Msg.Drop);
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  DragAcceptFiles(Handle, True);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Xdrop := X;
  Ydrop := Y;
end;

[FatumS]

Спасибо ребята

Ребята проблема в строке
TLink = class(TImage)
пишет ошибку но я все сделал идентично, что-то не пойму.
Может компонент нужен на форме какой-то?

[BaronTreep]

В uses должно быть по крайней мере:

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

Тогда ОК.

[FatumS]

точно не хватало ExtCtrls, вписал теперь норм. Спасибо.

Все получилось, спасибо, вот только не отображается ярлык, хотя путь к файлу показывает правильный, массив увеличился ровно на то количество иконок какое перетащил на форму, может из за того что не вытаскиваю изображение с ярлыка. А вот по поводу вытаскивания изображения перерыл форум ничего толкового не нашел, может подскажете кто. Буду очень признателен.

[BaronTreep]

На сайте delphisources есть статьи о FAQ:

http://www.delphisources.ru/pages/faq/all_articles.html

Там есть разде про ICO, да и вообще много чего.

[FatumS]

Спасибо буду искать.

Еще маленький вопросик, наверно уже надоел.Пишу

{ TLink }

procedure TLink.DblClick(Sender: TObject);
begin
Shellexecute(Handle,nil,...,nil,nil ,SW_RESTORE);
end;

вместо троиточия путь вытащин с ярлыка, но файл не открывается.

[BaronTreep]

Shellexecute(Handle, 'open', WAY, '', nil , SW_SHOW);

Handle - Запущенное окно будет дочерним к Твоему.
'open' - на выполнение средствами ОС
WAY - полный путь
'' - параметры командной строки пустые
nil - без указания директории ибо указали полный путь
SW_SHOW - будет видимо
SW_HIDE - а так нет.

Работает? Вроде должно.

[FatumS]

Не пойму ничего, опять не работает две ошибки
[Error] : Undeclared identifier: 'Handle'
и типы в добавок не совпадают [Error] : Incompatible types: 'String' and 'PAnsiChar'. Что за чертовщина.