Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 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имерно такого вида:

int WINAPI RunDll(HWND hWnd, HINSTANCE hInstance, LPCSTR lpszCmdLine, DWORD dummy);

……

int WINAPI RunDllW(HWND hWnd, HINSTANCE hInstance, LPCWSTR lpszCmdLine, DWORD dummy);

……

и .def-файл примерно такого вида:

EXPORTS

RunDll

RunDllA=RunDll

RunDllW

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

Продукты третьих фирм 

Adobe 

Читаем Adobe Acrobat PDF файлы из нашего приложения

Igor Nikolaev aKa The Sprite советует:

Adobe Acrobat PDF — хорошо известный формат, который нравится многим пользователям. Давайте посмотрим, как можно заставить приложение на Delphi прочитать файл такого формата.

Совместимость: Delphi 3.x (или выше)

Итак, Вы должны быть уверены, что у вас проинсталлирован Acrobat Reader, если таковой программы нет, то её можно скачать с www.adobe.com После этого необходимо проинсталировать типовую библиотеку для Acrobat (Project→Import Type Library из меню Delphi) выберите "Acrobat Control for ActiveX (version x)". Где x — текущая версия библиотеки. Hажмите кнопку инсталяции. Теперь создайте новое приложение, поместите на форму проинсталлированный компонент TPDF, далее добавите OpenDialog, и в заключении кнопку, при на нажатии на которую будет вызываться процедура открытия файла:

procedure TForm1.Button1Click(Sender: TObject);

begin

 if OpenDialog1.Execute then pdf1.src := OpenDialog1.FileName;

end;

в юните PdfLib_TLB вы можете найти интерфейс класса TPdf:

TPdf = class(TOleControl)

private

 FIntf: _DPdf;

 function GetControlInterface: _DPdf;

protected

 procedure CreateControl;

 procedure InitControlData; override;

public

 function LoadFile(const fileName: WideString): WordBool;

 procedure setShowToolbar(On_: WordBool);

 procedure gotoFirstPage;

 procedure gotoLastPage;

 procedure gotoNextPage;

 procedure gotoPreviousPage;

 procedure setCurrentPage(n: Integer);

 procedure goForwardStack;

 procedure goBackwardStack;

 procedure setPageMode(const pageMode: WideString);

 procedure setLayoutMode(const layoutMode: WideString);

 procedure setNamedDest(const namedDest: WideString);

 procedure Print;

 procedure printWithDialog;

 procedure setZoom(percent: Single);

 procedure setZoomScroll(percent: Single; left: Single; top: Single);

 procedure setView(const viewMode: WideString);

 procedure setViewScroll(constviewMode: WideString; offset: Single);

 procedure setViewRect(left: Single; top: Single; width: Single; height: Single);

 procedure printPages(from: Integer; to_: Integer);

 procedureprintPagesFit(from: Integer; to_: Integer; shrinkToFit: WordBool);

 procedure printAll;

 procedure printAllFit(shrinkToFit: WordBool);

 procedure setShowScrollbars(On_: WordBool);

 procedure AboutBox;

 property ControlInterface: _DPdf read GetControlInterface;

 property DefaultInterface: _DPdf read GetControlInterface;