Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 913

•  TDictionary Custom Sort  6 013

•  Fast Watermark Sources  5 804

•  3D Designer  8 616

•  Sik Screen Capture  6 142

•  Patch Maker  6 572

•  Айболит (remote control)  6 563

•  ListBox Drag & Drop  5 427

•  Доска для игры Реверси  95 308

•  Графические эффекты  6 776

•  Рисование по маске  5 940

•  Перетаскивание изображений  4 948

•  Canvas Drawing  5 324

•  Рисование Луны  5 050

•  Поворот изображения  4 591

•  Рисование стержней  3 249

•  Paint on Shape  2 492

•  Генератор кроссвордов  3 378

•  Головоломка Paletto  2 690

•  Теорема Монжа об окружностях  3 463

•  Пазл Numbrix  2 288

•  Заборы и коммивояжеры  2 971

•  Игра HIP  1 937

•  Игра Go (Го)  1 854

•  Симулятор лифта  2 188

•  Программа укладки плитки  1 919

•  Генератор лабиринта  2 359

•  Проверка числового ввода  2 047

•  HEX View  2 366

•  Физический маятник  1 999

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Добавляем файлы в Recent Documents list



Предположим Вам захотелось, чтобы Ваше программа сама умела добавлять файлы "recent documents list" (для тех, кто в танке - это такая менюшка, которая появляется при нажатии на кнопку Пуск(Start) и наведении мышкой на "Документы" (Documents). Сама функция API-шная, так что применять её можно в любом компиляторе.

Добавляем следующий код в интерфейсную часть формы:


const 
SHARD_PIDL = 1;
SHARD_PATH = 2;

procedure SHAddToRecentDocs(Flags: Word; pfname: Pointer); stdcall; external 'shell32.dll' name'SHAddToRecentDocs';

А так выглядит вызов этой функции:


SHAddTorecentDocs(SHARD_PATH,pchar('C:\mydir\myprogram.exe')); 

файл 'myprogram.exe' будет добавлен в recent documents list





Похожие по теме исходники

BDE Errors List

Userlist

FTP Lister

MODlist

 

Word List 1.5

Integers List

Sort in ListView

CheckListBox Draw

 

ProgressBar in ListView




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте