| Ruslan |
| Отправлено: 13.07.2003, 11:45 |
|
Не зарегистрирован
|
Нужно на форме вывести список ярлыков, так чтобы при двойном щелчке запускался соответсвующий ярлык.......
Как это сделать ? есть у когонибудь опыт в этом деле ??? |
|
| Admin |
| Отправлено: 13.07.2003, 13:22 |
|
Владимир
Группа: Администратор
Сообщений: 1190
|
| QUOTE |
чтобы при двойном щелчке запускался соответсвующий ярлык.......
|
Ну и обрабатывайте двойной щелчок.
И в каком виде будет ярлык — типа Label
или типа TImage (или и то и другое)
| CODE |
void __fastcall TForm1::Image1DblClick(TObject *Sender)
{
ShellExecute(Handle,"open","с:\\dir\\myfile.exe",NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1DblClick(TObject *Sender)
{
ShellExecute(Handle,"open","c:\\dir\\myfile.exe",NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Cursor = crHandPoint;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Image1->Cursor = crHandPoint;
}
//---------------------------------------------------------------------------
|
Отредактировано Admin — 13/07/2003, 14:24
|
|
| Guest |
| Отправлено: 13.07.2003, 13:38 |
|
Не зарегистрирован
|
Можно использовать WinExec |
|
| Ruslan |
| Отправлено: 15.07.2003, 13:38 |
|
Не зарегистрирован
|
| QUOTE (Ruslan @ 13/07/2003, 12:47) | | Нужно на форме вывести список ярлыков.... |
А как это сделать ??
Есть какой-нить элемент которому указываеш папку и он тебе выводит список находящихся в ней ярлыков (т.е. чтобы вручную не создавать элементы на форме для каждой проги, а просто брать список ярлыков из папки), типа как маленькое окошко виндовса со списком файлов тока внутри формы а не отдельно ???
|
|
| Admin |
| Отправлено: 15.07.2003, 19:37 |
|
Владимир
Группа: Администратор
Сообщений: 1190
|
Компонент TFileListBox c Mask = "*.lnk";
|
|
|
