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

Запуск DLL из командной строки   Найти похожие ветки 

← →
Darij   (2002-06-17 05:47) [0]

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

---

← →
Z0mb7   (2002-06-17 08:47) [1]

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

---

← →
Vovik ©   (2002-06-17 10:22) [2]

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

В главной проге:
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;

---

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

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



Память: 0.45 MB
Время: 0.009 c