Текущий архив: 2003.07.24;
Скачать: CL | DM;

Вниз

Как вызвать диалог   Найти похожие ветки 

← →
DVM ©   (2003-05-15 13:32) [0]

Случаем никто не напомнит?

---

← →
DeadMeat ©   (2003-05-15 15:22) [1]

Тормози, ща пасмарю...

Пасмарел...


procedure TForm1.Button1Click(Sender: TObject);
type NewLinkHereProc = procedure (HWND : THandle; HInstance : THandle; CmdLine : Pchar; cmdShow : integer); stdcall;
var NewLinkHere:NewLinkHereProc;
AppWizHandle:THandle;
newlnk:string;
tmp:thandle;
begin
newlnk:="c:\123"; {Путь, где создавать ярлык, расширение не ставить...}
tmp:=createfile (pchar (newlnk),GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
closehandle (tmp);
AppWizHandle:=Windows.LoadLibrary("appwiz.cpl");
NewLinkHere:=GetProcAddress(AppWizHandle, PChar("NewLinkHereA"));
NewLinkHere(handle,hinstance,PChar(newlnk),sw_show);
if fileexists (newlnk+".lnk")=false then deletefile (newlnk);
end;

Сразу сделаю 2-две оговорки:
1) Писал на скорую руку, прямо щас...
2) Мне не известен способ получения результата диалога, поэтому пришлось извратиться...

---

← →
DVM ©   (2003-05-15 15:46) [2]

Спасибо.

---

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

Текущий архив: 2003.07.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c