dallas page
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Robby, спасибо помогло.
Код: Wow64.DisableFsRedirection();
File.Copy("C:\\Windows\\System32\\photo.png", Shell.GetFolder(SHF_DESKTOP).."\\photo.png", true, true, false, true, nil);
Wow64.RevertFsRedirection(); |
Добавлено:
Господа, у меня есть еще один вопрос. В программе при нажатии правой кнопки мыши появляется меню:
Page - On Mouse Button:
Код: if(e_Type == RIGHT_BUTTON_DOWN)then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "111";
tblMenu[1].ID = 101;
tblMenu[1].IconID = 99;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "222";
tblMenu[2].ID = 103;
tblMenu[2].IconID = 99;
tblMenu[2].Checked = false;
nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
end |
Но на странице есть объект Input и при нажатии на него правой кнопкой мыши появляется это меню, а мне надо, чтобы было стандартное меню Копировать, Вставить и т.п. Как сделать так, чтобы при нажатии правой кнопки мыши на объект Input не выходило "мое" меню? Заранее спасибо.
Добавлено:
Есть конечно вариант с Hotspot:
Код: tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "111";
tblMenu[1].ID = 101;
tblMenu[1].IconID = 99;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "222";
tblMenu[2].ID = 103;
tblMenu[2].IconID = 99;
tblMenu[2].Checked = false;
tMousePos = System.GetMousePosition(true, nil);
nRes = Application.ShowPopupMenu(tMousePos.X, tMousePos.Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
|
Но может есть решение без применения Hotspot?!! |
Всего записей: 205 | Зарегистр. 28-03-2010 | Отправлено: 08:11 10-12-2014 | Исправлено: dallas page, 08:43 10-12-2014 |
|
Дружественная тема в Варезнике
