Главная страница
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.027 c
3-88732
Digitman
2002-06-04 08:51
2002.06.27
BLR-interpreter в составе -сервера ...


1-88811
Charlz
2002-06-16 16:23
2002.06.27
Определение дня недели из заданой даты


3-88765
SKing
2002-06-04 10:18
2002.06.27
Sweep с помощью IBX ?


3-88769
maxim2
2002-06-05 13:45
2002.06.27
Не могу создать ini файл в разделе var в объявлении ini: TIniFile


1-88891
Akni
2002-06-14 00:48
2002.06.27
Свойства компонента