Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.27;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-88866
Good Man
2002-06-17 21:29
2002.06.27
Как получить TextRange конкретного фрейма в TWebBrowser?


1-88820
Andrew_JR
2002-06-17 00:29
2002.06.27
Массивы+Memo


4-89065
Chir
2002-04-27 11:50
2002.06.27
Завершение работы Windows


1-88883
Нонна
2002-06-13 12:58
2002.06.27
Без формы


3-88718
AndruhaM
2002-06-03 17:41
2002.06.27
Как связать таблицы по MasterSource