| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запуск DLL из командной строки [D5, Win95/98, NT4, WinXP]

Darij ©   (2002-06-17 05:47:00) 

Подскажите пожалуйста, как запустить dll с помощью shellExecute.
У этой dll есть функция запуска с параметрами, к примеру ShowDllEx(dbName, dbNik, dbPassword :PChar);
Знаем, что dll без параметром запускается нормально, а вот с параметрами.... найти не могу... За ранее спасибо.

---

Vovik   (2002-06-17 10:22:00) [1]

Сам недавно такой вопрос задавал. Попробуй так:

В главной проге:
procedure TForm1.N41Click(Sender: TObject);
var Hbar1: Thandle;
Foo1: procedure(PS : String);
begin
Hbar1 := LoadLibrary("fastinfo.dll");
if Hbar1 >= 32 then { успешно }
begin
Foo1 := GetProcAddress(HBar1, "fastinfoShow");
Foo1(PS);
end
else
MessageDlg("не могу найти fastinfo.dll", mtError, [mbOk], 0);
end;

В DLL :

procedure fastinfoShow(PS_ : String);
Begin
Form1:=TForm1.Create(Form1);
Form2:=TForm2.Create(Form2);
PS := PS_;
Form1.Show;
End;
exports
fastinfoShow;

---

Z0mb7   (2002-06-17 08:47:00) [2]

Наверное только делать строку, а потом запускать длл+строка. Иначе никак, но не уверен.

---

Наверх