Home

Page 338
Page 338
background image

Полезное 331

 Имя, которое будет отображаться на ярлыке.

• Параметры, которые должны быть переданы программе при запуске.

Если вы сейчас попытаетесь запустить программу, то Delphi не сможет от-

компилировать код, потому что не знает о существовании процедуры

 Ее нужно еще написать. Для этого в разделе  p r i v a t e опи-

шите процедуру CreateShotCut следующим образом:

private

{ Private declarations }

 String);

Теперь нажимаем заветную комбинацию клавиш <Ctrl>+<Shift>+<C> и по-
лучаем заготовку описанной процедуры. В нее нужно вставить следующее

(листинг 7.2).

Листинг 7.2.

 создании ярлыка

procedure

SourceParams: String);

var

ShellLink: IShellLink;

ShellFile: IPersistFile;

 string;

 WideString;

i: Integer;

begin

IUnk

ShellLink := IUnk as IShellLink;

ShellFile := IUnk as IPersistFile;

 :=

if

 then

begin

ShortCutName :=

1

 978


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.