D1P

|
Posted: Fri Oct 27, 2006 12:23 Post subject: |
|
|
А, это...
В этих "свойствах" ты можешь делать что угодно. Вообще-то там никакого пустого окна появляться не должно - только то, что описано в коде.
Вызов "свойств" происходит в функции FsExecuteFile, если параметр Verb равен 'properties'. Простейший код:
Code: | function FsExecuteFile(MainWin:thandle;RemoteName,Verb:pchar):integer; stdcall;
var
Begin
result:=FS_EXEC_OK;
if verb='properties' then
begin
MessageBox(MainWin,RemoteName,'File properties',mb_ok);
end;
End; |
_________________ База знаний о Total Commander
Блог |
|