Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Popup menu 
Author Message
D1P



PostPosted: Fri Oct 27, 2006 12:23    Post subject: Reply with quote

А, это...
В этих "свойствах" ты можешь делать что угодно. Вообще-то там никакого пустого окна появляться не должно - только то, что описано в коде.
Вызов "свойств" происходит в функции 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
Блог
View user's profile Send private message Visit poster's website ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group