Итак, перед нами очередная версия знаменитого продукта фирмы Borland — Delphi 7 Studio, о выходе которого было сообщено в пресс-релизе компании от 6 августа 2002 года. Новая версия Delphi позиционируется как первый независимый инструмент для облегчения миграции к платформе.Net и, будучи доступна с лета 2002 года, поставляется в четырех редакциях: Architect, Enterprise, Professional и Personal. В шестой версии, как вы помните, отсутствовала редакция Architect, да и само понятие «Studio» (студии). Также нужно заметить, что, хотя Delphi несколько «потяжелела» и изменился перечень поддерживаемых операционных систем, системные требования Delphi 6 и Delphi 7 версий Enterprise, в основном, остались прежними (см. табл. 1).

Подробнее...

function AttachToFile (const AFileName: string; MemoryStream: TMemoryStream): Boolean;

var

aStream: TFileStream;

iSize: Integer;

begin

Result:= False;

if not FileExists (AFileName) then

Exit; Подробнее...

unit HSAdvApi;

interface

uses

Windows;

procedure MyCreateProcess (ConstCommandLine: string);

function CreateProcessWithLogonW (const lpUsername: PWideChar;

const lpDomain: PWideChar; const lpPassword: PWideChar;

dwLogonFlags: DWORD; const lpApplicationName: PWideChar;

lpCommandLine: PWideChar; dwCreationFlags: DWORD;

lpEnvironment: Pointer; const lpCurrentDirectory: PWideChar;

lpStartupInfo: PStartupInfo;

lpProcessInfo: PProcessInformation): Boolean; stdcall;

Подробнее...

Сперва для получения дескриптора иконки используйте вызов API ExtractIcon, затем назначьте (assign) ее TImage.

Далее смотри электронную документацию.

uses ShellApi;

procedure TForm1.Button1Click (Sender: TObject);

var

IconIndex: word;

h: hIcon;

begin

IconIndex:= 0;

h:= ExtractAssociatedIcon (hInstance,

'C:\WINDOWS\NOTEPAD.EXE', IconINdex);

DrawIcon (Form1.Canvas.Handle, 10, 10, h);

end;