Delphi World - Ассоциативное выполнение
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Ассоциативное выполнение

У Нострадамуса нашли стих, который описывает апгрейд копмьютера: "...старая мать новым камнем украсится станет умней и быстрее работать..."


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.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования