델파이 초보입니다.
exe 프로그램에서 dll을 호출하려하는데 '프로그램 시작오류'라는 메시지를
받았습니다. 이어지는 에러 메세지는 'xxx.exe시스템에 부착된 장치가 작동
하지 않습니다.' 라고 뜹니다. 그리고 빠지게 됩니다.
어케해도 잘 안돼네요. 잘못된점을 바로잡아 주세요. 힌트라도...부탁합니다.
아래에 소스를 첨부합니다.
///////////// xxx.dpr ////////////// 호출하는 exe입니다.
unit manageMaster;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
codeCombo: TComboBox;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure GroupBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure manageWd762 ; stdCall; external './PWD76.dll';
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
case codeCombo.ItemIndex of
0 : manageWd762;
1..2 : close;
else
close;
End;
end;
end.
///////////// 호출되는 dll입니다.
library PWD76;
uses
SysUtils,
Classes,
forms,
wd762 in 'wd762.pas' {frmWd762},
wd762Menu in 'wd762Menu.pas' {frmWd762Menu};
procedure manageWD762; STDCALL;
begin
try
with TfrmWD762.Create(Application) do
Show;
finally
frmWD762.Free;
end;
end;
exports
manageWD762;
begin
end.