Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 294

•  TDictionary Custom Sort  6 340

•  Fast Watermark Sources  6 129

•  3D Designer  9 061

•  Sik Screen Capture  6 450

•  Patch Maker  6 866

•  Айболит (remote control)  6 852

•  ListBox Drag & Drop  5 727

•  Доска для игры Реверси  96 585

•  Графические эффекты  7 069

•  Рисование по маске  6 369

•  Перетаскивание изображений  5 241

•  Canvas Drawing  5 614

•  Рисование Луны  5 313

•  Поворот изображения  4 863

•  Рисование стержней  3 449

•  Paint on Shape  2 708

•  Генератор кроссвордов  3 587

•  Головоломка Paletto  2 875

•  Теорема Монжа об окружностях  3 684

•  Пазл Numbrix  2 417

•  Заборы и коммивояжеры  3 098

•  Игра HIP  2 059

•  Игра Go (Го)  1 983

•  Симулятор лифта  2 346

•  Программа укладки плитки  2 046

•  Генератор лабиринта  2 504

•  Проверка числового ввода  2 192

•  HEX View  2 517

•  Физический маятник  2 133

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как написать DLL, которую можно было-бы выполнить с помощью RunDll, RunDll32



Автор: Nomadic

Вы должны определить в программе вызываемую снаружи функцию.

Функция должна быть __stdcall (или WINAPI, что то же самое ;)) и иметь четыре аргумента. Первый - HWND окна, порождаемого rundll32 (можно использовать в качестве owner'а своих dialog box'ов), второй - HINSTANCE задачи, третий - остаток командной строки (LPCSTR, даже под NT), четвертый - не знаю ;).

Hапример -

int __stdcall __declspec(dllexport) Test
(
HWND hWnd,
HINSTANCE hInstance,
LPCSTR lpCmdLine,
DWORD dummy
)
{
MessageBox(hWnd, lpCmdLine, "Command Line", MB_OK);
return 0;
}
Исполняем таким образом -
rundll32 test.dll,_Test@16 this is a command line
выдаст message box со строкой "this is a command line".

На Паскале -


function Test(
  hWnd: Integer;
  hInstance: Integer;
  lpCmdLine: PChar;
  dummy: Longint
  ): Integer; stdcall; export;
begin
  Windows.MessageBox(hWnd, lpCmdLine, 'Command Line', MB_OK);
  Result := 0;
end;

Давненько я ждал эту инфоpмацию! Сел пpовеpять и наткнулся на очень забавную вещь. А именно -- пусть у нас есть исходник на Си пpимеpно такого вида:

int WINAPI RunDll( HWND hWnd, HINSTANCE hInstance, LPCSTR lpszCmdLine, DWORD dummy );
......
int WINAPI RunDllW( HWND hWnd, HINSTANCE hInstance, LPCWSTR lpszCmdLine, DWORD dummy );
......
и .def-файл пpимеpно такого вида:
EXPORTS
RunDll
RunDllA=RunDll
RunDllW

то rundll32 становится pазбоpчивой -- под NT вызывает UNICODE-веpсию. Под 95, pазумеется, ANSI.








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте