Коллеги, подскажите в чем я не прав:

procedure TForm1.FormActivate(Sender: TObject);
var
comm:_COMMCONFIG;
begin
CommConfigDialog('COM1',NULL,comm);
end;

Все компилится, а при выполнении идет EVariantError: "invalid variant type conversion"

Здравствуйте Clover, вы писали:

C>Коллеги, подскажите в чем я не прав:

C>procedure TForm1.FormActivate(Sender: TObject);
C>var
C> comm:_COMMCONFIG;
C>begin
C> CommConfigDialog('COM1',NULL,comm);
C>end;

C>Все компилится, а при выполнении идет EVariantError: "invalid variant type conversion"

надо NULL заменить на 0 !

Здравствуйте Clover, Вы писали:

C>Коллеги, подскажите в чем я не прав:

C>procedure TForm1.FormActivate(Sender: TObject);
C>var
C> comm:_COMMCONFIG;
C>begin
C> CommConfigDialog('COM1',NULL,comm);
C>end;

C>Все компилится, а при выполнении идет EVariantError: "invalid variant type conversion"

#Вызов диалогового окна настройки СОМ-порта;
---------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
CC: TCommConfig;
begin
CC.dwSize := SizeOf(TCommConfig);
CommConfigDialog('COM2', Handle, CC);
end;

end.
----------------------------------------------