delphi通用函数单元

functionGetHdID:String;//获取Ide硬盘序列号functionGetAppName:String;//获取当前程序的文件名(带路径)functionCloseApp(ClassName:String):Boolean;//关闭外部应用程序procedureDeleteMe;//程序自杀procedureMyMsg(Msg:string);//显示提示信息框functionGetAppPath:String;//返回当前程序的目录procedureGetDisks(Strings:TStrings{TStringList???});//获取所有盘符pr