Воскресенье, 05 Май 2024, 17:45
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635

Онлайн всего: 14
Гостей: 14
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей

Главная » Статьи » Студентам » API
Ассоциативное выполнение
unit
UcShell;

interface

uses Classes, SysUtils, Windows,
ShellApi, Forms;

{---------------------------------------------------------------}

function
WinExecutableName(const
AssociatedFile:string):String;

procedure
WinShellOpen(const AssociatedFile:string);
procedure
WinShellPrint(const AssociatedFile:string);
procedure
WinShellExecute(const
Operation,AssociatedFile:string);

{---------------------------------------------------------------}

implementation

Const

cStrBufSize= 80;
{---------------------------------------------------------------}

function
WinExecutableName(const
AssociatedFile:string):String;
//HINSTANCE
FindExecutable(
// LPCTSTR lpFile, // указатель на строку с именем
файла
// LPCTSTR lpDirectory, // указатель на строку с директорией по
умолчанию
// LPTSTR lpResult // указатель на буфер для строки,
возвращаемой выполняемым файлом
// );
begin

SetLength(result,cStrBufSize); //ucshell
FindExecutable(pchar(AssociatedFile),'',pchar(result));
SetLength(result,strlen(pchar(result)));end;

//

procedure WinShellExecute(const
Operation,AssociatedFile:string);
var

a1:string;begin

a1:=Operation;
if a1='' then
a1:='open';
ShellExecute(
application.handle //hWnd:
HWND
,pchar(a1) //Operation:
PChar
,pchar(AssociatedFile) //FileName:
PChar
,'' //Parameters: PChar
,'' //Directory: PChar
,SW_SHOWNORMAL //ShowCmd:
Integer
);// GetLastErrorString(0); //ucdialog
end;

procedure WinShellPrint(const
AssociatedFile:string);
begin

WinShellExecute('print',AssociatedFile);end;

procedure
WinShellOpen(const AssociatedFile:string);
begin

WinShellExecute('open',AssociatedFile);end;

{-----------------------------------------------------------------}
end.
Категория: API | Добавил: Lerka (22 Ноя 2012)
Просмотров: 404 | Рейтинг: 1.0/ 5 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Воскресенье
05 Май 2024
17:45

Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz