delphi怎么写dll( 四 )


procedure TForm1.Button1Click(Sender: TObject);
var
openDialog:TOpenDialog;
begin
ShowMessage('');
openDialog := TOpenDialog.Create(nil);
if openDialog.Execute then
end;
看看
end;

delphi怎么写dll

文章插图