错矣:
Function ABC( DocName : String ) : LongInt;
Begin
...
ShellExecute( Hnd, 'open', PChar( DocName ), '', 'e:\', SW_SHOW );
...
END;...
Var
Var ZS : LongInt;
Begin
ZS := ABC( ComboBox.Text );
End;
Function ABC( DocName : String ) : LongInt;
Begin
...
ShellExecute( Hnd, 'open', PChar( DocName ), '', 'e:\', SW_SHOW );
...
END;...
Var
Var ZS : LongInt;
Begin
ZS := ABC( ComboBox.Text );
End;
也就是以#0字符结尾的字串,与string不同,详细的还是看帮助吧!