viOpenの長い定義

結局、viOpenの定義は、visa32.basでの表記と並べて書くと、
Declare Function viOpen Lib "VISA32.DLL" Alias "#131" (ByVal sesn As Long, ByVal viDesc As String, ByVal mode As Long, ByVal timeout As Long, vi As Long) As Long
long＝viopen(値sesn:longword; 値name:pchar配列; 値mode:longword; 値timeout:longword; ポインタvi:longword)
となる。Delphiでは、最後のviにだけ、var vi:longwordと、"var"を付けてあげる。
あと、nameのところは、visaのツールで表示される長い名前をそのまま文字列(Delphiなのでシングルクォーテーション)をコピーして書き入れれば良い。