ярлыки

← →
Aga © (2002-09-05 16:41) [0]

Всем привет!
Подскажите пожалуйста как сделать так чтобы на мою форму можно было перетаскивать
ярлыки с Рабочего Стола? И при нажатии на эти ярлыки(на моей форме) запускалось приложение
как обычно.

← →
France (2002-09-05 16:50) [1]

Я такое делал совсем недавно. Размести на форме ListBox и вместо своего Unit1 напиши вот этот. При перетакскивании ярлыка на ЛистБокс, в нем будут прописываться пути ярлыков.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellAPI, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
private
procedure WMDROPFILES(var Message: TWMDROPFILES);
message WM_DROPFILES;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
var
NumFiles : longint;
i : longint;
buffer : array[0..255] of char;
begin
{How many files are being dropped}
NumFiles := DragQueryFile(Message.Drop,
-1,
nil,
0);
{Accept the dropped files}
for i := 0 to (NumFiles - 1) do begin
DragQueryFile(Message.Drop,
i,
@buffer,
sizeof(buffer));
Form1.ListBox1.Items.Add(buffer);
end;
end;

end.

Не не работает :(

ярлыки Найти похожие ветки