Несколько вопросов по Delphi 2005

[Speeker]

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

А в заголовке так и написано REGMON, FileMON, artmoney?

Нет, Regmon -
Registry monitor - Sysinternals:www.sysinternals.com, сом, файл скорее всего вместо слова Registry - File, точно не могу сказать, где то успел ужуе грохнуть эту прогу, с Артмани - хуже
вот например у меня версия 6.06 установлена, (уже есть старше - точно знаю потому как где то инсталяция валялась, но давно непользовался) - Game Cheater ArtMoney v6.06, а вообще google, rambler... Писать защиту от чего то и не проверить как работает...
А вот насчет регистра не помню, найду гдето текст старой проги - напишу еще...

[Nez]

Отлично, вот тут по ходу написания появилась ещё одна проблема... Вобщем есть окно программы, так есть объект MEMO, нужно, чтобы Drag&Drop-ом можно было перетасчить файл определенного расширения в этот MEMO, ну и потом, получив ссылку на нужный файл, прога его могла обработать как нужно (это уже мои проблемы)....

И ещё вопрос, для того, чтобы СОЗДАТЬ пустой файл, достаточно просто использовать функцию assignfile(f,s) ?

[Квэнди]

1 вопрос пример модуля в аттаче
2.
1-й вариант:
assignfile ();
rewrite(file);
2-й вариант:
winapi:
createfile +f1

[Nez]

ОГРОМНОЕ спасибо.... Буду сидеть разбирать, вот только куча пояснений несколько мешает...

И ещё один очень ламерский вопрос, DIV - это остаток от деления?

[Квэнди]

именно так

[Nez]

Что-то не запускается программа...

procedure TForm2.FormCreate(Sender: TObject);
begin
OleInitialize(nil);
{Allow window to accept drop events}
OleCheck(RegisterDragDrop(Handle, Self));
{ Execute Wordpad for testing }
ShellExecute(Handle, 'open', 'wordpad', 'c:\Test.doc', nil, SW_SHOW);
end;

- вот в этой процедуре выделяет "красненьким" строку с OleCheck ...


А ошибку пишет вот какую:
[Warning] Unit2.pas(39): W1010 Method 'DragOver' hides virtual method of base type 'TControl'
[Error] Unit2.pas(78): E2010 Incompatible types: 'IDropTarget' and 'TForm2'

Я везде Form1 изменил на Form2... Потому что Memo у меня находится именно на Form2 ... Я правильно сделал?

[Квэнди]

Опишу другой вариант проще:
Подключаем модуль ShellAPI в области uses
По созданию окна [событие OnCreate] пишем такой код:

DragAcceptFiles(Handle, true);

Когда вы перетаскиваете файл на своё приложение и отпускаете кнопку мыши, Windows посылает этому окну сообщение wm_DropFiles. Сообщение сопровождается именем файла. Обработчик этого сообщения нужно включить в раздел protected класса формы. Вставьте следующий код:

protected
  procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;

Далее обрабатываем сообщение:

procedure TForm1.WMDropFiles(var Msg: TMessage);
var
  FileName: array[0..256] of char;
begin
  DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
  Memo1.Lines.LoadFromFile(FileName);
  DragFinish(THandle(Msg.WParam));
end;

или так:

procedure TForm1.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);
    listbox1.items.add(StrPas(Filename));
    StrDispose(Filename);
  end;
  DragFinish(Msg.WParam);
end;

[AVer]

И ещё один очень ламерский вопрос, DIV - это остаток от деления?

DIV - это не остаток от деления! Остаток от деления - MOD, а DIV - деление нацело.

[Nez]

Квенди, это ты пишешь как дополнение к предидущему прикрепленному файлу или просто всё по новой?

первый код надо сразу писать под

uses
ShellAPI
?

Вопрос 2: Где искать раздел protected? Что-то нигде его не нахожу

Вопрос3: Вот тупо скопировав код процедуры обработки перетаскивания что я получу? Мне нужно "хитрым" бразом обработать содержимое перетащенного файла и затем раскидать его по разным полям... Куда я смогу писать свой код и где переменная, отвечающая за путь к файлу? Вообще по сути мне нужно только перехватить путь к файлу и всё.... И сразу же после отпускания кнопки мыши обработать его содержимое...

Спасибо.

[Квэнди]

Второй код не имеет ничего общего с первым аттачем .
2. Допиши зарезирвированное слово protected в описании класса формы :

type
Tftest = class(TForm)
protected
{procedure}
private
{ Private declarations }
public
{ Public declarations }
end;

Далее в процедуре:

procedure TForm1.WMDropFiles(var Msg: TMessage);
var
FileName: array[0..256] of char;
begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
{
Здесь делаешь все что тебе необходимо с файлом
}
DragFinish(THandle(Msg.WParam));
end;