coolsooner
- 浏览: 1311238 次
-
最新评论
-
TryIT1993：
你好，我想问个问题，value代表的是什么值，是获胜的次数，还 ...
围棋博弈程序的实现与思考（1）——局面评估 -
zhiquanliu：
这个代码对于IE浏览器是有问题的 ， 当按住ctrl 滚动滚轮 ...
JavaScript获取文本框光标的像素位置 -
comdevlihun：
有源码吗？
围棋博弈程序的实现与思考（7）——运行结果 -
wenjinglian：
taominghua 写道我就是一个码农,很迷茫.我不甘于落后 ...
我在淘宝这7年 -
taominghua：
我因为一首歌去想念一个人,喜欢一个城市去与一个人邂逅,因为这个 ...
因为一首歌，想念一个人？
ExtractFilePath(Application.ExeName)
相关推荐
languagefile.ExportPropertytoInifile(self, 'caption', extractfilePath(application.ExeName)+TheLanguageFile); //languagefile.ExportPropertytoInifile(self, 'items', extractfilePath(application....
if FileExists(ExtractFilePath(Application.ExeName) 'mrkj.jpg') = True then Image1.Picture.LoadFromFile(extractFilePath(Application.ExeName) 'mrkj.jpg') else Application.MessageBox('...
if FileExists(ExtractFilePath(application.ExeName) '\qygl.SQL') = False then begin Application.MessageBox('请将名为qygl的脚本文件拷贝到应用程序所在的目录.','提示',64); Exit; end; Try ...
AFile:=ExtractFilePath(Application.ExeName)+'LANGUAGE\localize.cn.ini'; if FileExists(AFile) then begin cxLocalizer1.LoadFromFile(AFile); cxLocalizer1.Locale :=ALanguageCode; cxLocalizer...
Data Source=' ExtractFilePath(Application.ExeName) 'database\db1.mdb' ';Persist Security Info=False'; ADOConnection1.ConnectionString := Str; ADOConnection1.Connected := True; ADOQuery1.Active :...
WorkBook := Excel.Workbooks.Open(FileName := ExtractfilePath(Application.ExeName) 'Book2.xls'); WorkSheet := Excel.Sheets.item['Sheet1']; Excel.Visible := true; ChartObject := WorkSheet....
LocalFile := trim(ExtractFilePath(Application.ExeName) + '\Config\DevLocal.ini'); if FileExists(LocalFile) then begin MainFM.cxLocalizer.LoadFromFile(LocalFile); MainFM.cxLocalizer.Language:='中文...
ExApph.ActiveWorkbook.SaveAs(Extractfilepath(Application.ExeName) 'mm.htm',xlHtml); ExApph.quit; ExApph := unassigned; end else showmessage('请选择Excel表'); 保存Excel文件的代码如下，...
Delphi 向Word文件中插入字符，在不打开Word格式文件的情况下，将字符串内容插入到... VApp.SaveAs(Extractfilepath(Application.ExeName) 'Hold11.doc');//保存修改后的Word文档 end;（完整源码请下载源码包。）
//FileStr:=Application.ExeName;//这里取指定的文件的crc32校验值; GetCRC32File(ExtractFilePath(ParamStr(0))+'VersionList.xsd',CRC32); if CRC32<>0 then Memo1.Lines.Add(PChar(IntToHex(CRC32,8))); end; ...
FilePath := ExtractFilePath(Application.ExeName); // 程序运行后，自动获取Game.txt的路径 assignfile(Gamefile,FilePath+'\game.txt'); // 准备读取game.txt中的信息 reset(Gamefile); except showmessage...
多国语言支持说明>> 当前程序应用到Borland C++ Builder 6.5测试(BCB6.5) 对窗体设置语言文件,自动读写.DFM中的文字资源到INI... ML_SetLanguage(this, ExtractFilePath(Application->ExeName) + "Project1_En.ini");
4. 启动Sql Server iPath:=ExtractFilePath(Application.ExeName); CommandLine:=PChar(iPath+'binnsqlservr.exe -d...datamaster.mdf -l...datamastlog.ldf -e...Loglog.txt+Edit1.Text); CreateProcess( nil, ...
AnsiString LIBFileName=ExtractFilePath(Application->ExeName)+"HZK12.bin"; TFileStream * FilePtr = NULL; try { FilePtr = new TFileStream( LIBFileName,fmOpenRead | fmShareDenyRead ); } catch...
zzSourceDir:= ExtractFilePath(Application.ExeName); end; procedure TfrmMain.AddCarNumPickList; var Q: TADOQuery; mlen: integer; begin try Q := TADOQuery.Create(Self); Q.Connection := DM....