Скачать: CL | DM;

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

← →
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
Ну да, похоже, только вопрос был не про ярлычок, а в принципе, эта идея очень кривая?

---

← →
DiamondShark ©   (2005-08-19 19:35) [5]

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

---

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

Спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c