Насколько это кривой способ?

← →
TStas © (2005-08-19 18:53) [0]

Я знаю, как сделать многие вещи с помощью сервера сценариев, притом у меня есть достаточно отлаженных скритпов, которые уже это делают, а вот как это сделать с помощью Дельфи знаю далеко не всегда. Про ярлык мне ответили, но ведь это частный случай. Написал простенький объект, потомок таймера, который принимает TStringList с текстом скрипта, пишет его на диск, выполняет его, ждет, стирает с диска и уничтожает себя. Все работает, но вопрос, насколько это нормальные способ или кривой, происходящий от незнания возможностей Дельфи?
Но ведь тот же ярлык я ни в справке ни в книгах не нашел, да и поиск по форуму ничего не дал. Спасибо тому, кто ответил, но не всегда же есть возможность получить ответ.

← →
delirium-system-2 (2005-08-19 19:02) [1]

http://www.google.ru/search?q=windows+shell+programming

← →
TStas © (2005-08-19 19:05) [2]

>delirium-system-2
Спасибо, конечно, только, к моему стыду мне достаточно сложно по-английски большие тексты читать :(

← →
wicked © (2005-08-19 19:12) [3]

типа такого, что ли?......
uses // что-то из этих модулей, лень искать, да и делфи не установлена
ShlObj, shellapi, FileCtrl, ActiveX, comobj;
function CreateShortcut(obj, workdir, shortcutfile, desc: string): boolean;
var shobj: IUnknown;
shelllink: IShellLink;
persistfile: IPersistFile;
sfile: array [0..MAX_PATH + 1] of widechar;
begin
try
shobj := CreateComObject(CLSID_ShellLink);
shelllink := shobj as IShellLink;
persistfile := shobj as IPersistFile;

shelllink.SetPath(PChar(obj));
shelllink.SetWorkingDirectory(PChar(workdir));
shelllink.SetDescription(pchar(desc));

FillChar(sfile, sizeof(sfile), 0);
StringToWideChar(shortcutfile, @sfile[0], MAX_PATH);
persistfile.Save(@sfile, False);
Result := true;
except
Result := false;
end;
end;

← →
TStas © (2005-08-19 19:19) [4]

>wicked
Ну да, похоже, только вопрос был не про ярлычок, а в принципе, эта идея очень кривая?

Эта идея очень кривая.

Спасибо

Насколько это кривой способ? Найти похожие ветки