Путь до файла

[nix01d]

Допустим есть 2 файла. Первый, это наш скомпилированный файл (project1.exe), а второй допустим текстовый документ (asd.txt).
Берем файл "asd.txt" и переносим его на "project1.exe". После запуска, программа должна вывести путь до файла, который мы на неё перенесли (в нашем случае "asd.txt").

[mihali4]

Просто нужно разобраться с методами Drag and Drop...

[raxp]

это называется drag&drop, обрабатывайте сообщение WM_DROPFILES. Пример:

procedure WMDROPFILES(var Message: TWMDROPFILES);message WM_DROPFILES;

//Drag&Drop
procedure tform.ProcessFile(Filename: string);
begin
 lb.TopIndex:= lb.Items.Count-1;
 //проверка на каталог-
 lb.Items.Add(filename) //lb- listbox
end;

procedure Tform.WMDROPFILES(var Message: TWMDROPFILES); // обработка списка кинутых-
var Files: Longint;
        i: Longint;
   Buffer: array[0..MAX_PATH] of Char;
begin
 Files:= DragQueryFile(Message.Drop,$FFFFFFFF,nil,0);
 for i:= 0 to Files - 1 do begin
  DragQueryFile(Message.Drop,I,@Buffer,SizeOf(Buffer));
  ProcessFile(Buffer);
 end;
 DragFinish(Message.Drop)
end;

[Пепел Феникса]

помоему автору топика надо

if ParamCount>0{или 1...не помню} then ShowMessagge(ParamStr(1));

[nix01d]

Сообщение от raxp

это называется drag&drop, обрабатывайте сообщение WM_DROPFILES. Пример:

procedure WMDROPFILES(var Message: TWMDROPFILES);message WM_DROPFILES;

//Drag&Drop
procedure tform.ProcessFile(Filename: string);
begin
 lb.TopIndex:= lb.Items.Count-1;
 //проверка на каталог-
 lb.Items.Add(filename) //lb- listbox
end;

procedure Tform.WMDROPFILES(var Message: TWMDROPFILES); // обработка списка кинутых-
var Files: Longint;
        i: Longint;
   Buffer: array[0..MAX_PATH] of Char;
begin
 Files:= DragQueryFile(Message.Drop,$FFFFFFFF,nil,0);
 for i:= 0 to Files - 1 do begin
  DragQueryFile(Message.Drop,I,@Buffer,SizeOf(Buffer));
  ProcessFile(Buffer);
 end;
 DragFinish(Message.Drop)
end;

Работает, но это не совсем то, что нужно. Мне нужно не на форму перенести файл, а на исполняемый файл, тобиш "project1.exe", после чего прога запускается и показывает путь этого файла.

[Пепел Феникса]

я показал код
его можно ввести в событие например FormCreate

[nix01d]

Сообщение от Пепел Феникса

я показал код
его можно ввести в событие например FormCreate

Прошу прощения, его то я как раз таки и забыл проверить.
Все работает. Большое спасибо.