请教大家这个是什么语言代码-已解决问题区-AUTOIT CN

jirunyang 发表于 2013-2-15 21:59:56

请教大家这个是什么语言代码

请问下大家哈，下面这var
g_iActionIndex:Integer;//用户指定的动作Index
g_iBtnimgMenuIndex:Integer; //按钮背景图片菜单Index
g_FolderPathStr,g_FilePathStr,g_ParaMeterStr:string;//获取的目录地址，文件地址，运行参数
g_sControlPanelGuid:String;
g_lstMenuItems:TString;
g_lstBtnImgMenuItems:TString;
g_lstBtnImgFiles:TStrings;

Procedure ChangeBtnImgClicked(sender);
begin
BeginUpdate;
TMenuItem(g_lstBtnImgMenuItems.Objects).checked:=False;
btnMain.filename:=g_lstBtnImgFiles.strings;
btnMain.needRefresh:=True;
TMenuItem(g_lstBtnImgMenuItems.Objects).checked:=True;
SetSetting('btnMainImgFilename',g_lstBtnImgFiles.strings);
g_iBtnimgMenuIndex:=Sender.tag;
TMenuItem(g_lstBtnImgMenuItems.Objects).checked:=True;
EndUpdate;
end;

procedure ChangeIconClicked(isChangeIcon);//该过程替换Icon图标/Button背景
var OpenDialog:TOpenDialog;
begin
try
OpenDialog:=TOpenDialog.create(widget);
OpenDialog.InitialDir:=WidgetPath+'MainPicture';
OpenDialog.filter:='All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf;*.png)|*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf;*.png|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|Png图片|*.png';
if OpenDialog.execute then
begin
//do something
if isChangeIcon then
begin
if CopyFile(OpenDialog.filename,AppPath+'Data\'+WidgetName+'.png',False) then
begin
         BeginUpdate;
imgMain.filename:='';
SetSetting('IconFileName',AppPath+'Data\'+WidgetName+'.png');
imgMain.filename:=AppPath+'Data\'+WidgetName+'.png';
         EndUpdate;
end;
end;
end;
finally
OpenDialog.free;
end;
end;

procedure ChangeIconSize(iIconSize:Integer); //该过程改变图标大小
begin
BeginUpdate;
if imgMain.width <> iIconSize then
begin
imgSelectedBg.width:=iIconSize;
imgSelectedBg.height:=iIconSize;
imgMain.width:=iIconSize;
imgMain.height:=iIconSize;
widget.width:=iIconSize+12;
widget.height:=iIconSize+32;
if btnMain.width<= imgMain.width then
begin
   btnMain.left:= Round((imgMain.width-btnMain.width)/2) ;
if iIconSize>=85 then
   btnMain.width:=85;
else
   btnMain.width:=imgMain.width
endelse
begin
btnMain.left:=imgMain.left;
btnMain.width:=imgMain.width;
end;
if imgMain.width<64 then
begin
   // btnMain.fontstyle.font.size:=8;
endelse if imgMain.width<=128 then
   begin
   // btnMain.fontstyle.font.size:=9;
   endelseif imgMain.width<=256 then
   begin
   // btnMain.fontstyle.font.size:=10;
   end;
end;
btnMain.Top:= iIconSize + 3;
{
if (length(btnMain.Caption)>4) and (imgMain.width<=50) then
begin
imgMain.width:=length(btnMain.Caption)*10;
widget.width:=btnMain.width+12;
btnMain.left:= Round((widget.width-btnMain.width)/2) ;
end else
begin

end;
}

EndUpdate;
end;

procedure ChangeBtnCap(index:integer);
var
lstTmpStr:TStrings;
Caption:string;
begin
try
lstTmpStr:=TStringList.create;
lstTmpStr.loadFromFile(WidgetPath+'ActionList.dat');
if index<2 then
begin
btnMain.hint:=lstTmpStr.strings;
case index of
0:btnMain.Caption:='打开指定目录';
1:btnMain.Caption:='打开文件/程序';
end;
Caption:=btnMain.Caption;
SetSetting('IconCaption',Caption);
   ChangeIconSize(imgMain.width);
exit;
end;
Caption:=Copy(lstTmpStr.strings,Pos('“',lstTmpStr.strings)+2,Pos('”',lstTmpStr.strings)-Pos('“',lstTmpStr.strings)-2);
SetSetting('IconCaption',Caption);
btnMain.Caption:=Caption;
btnMain.hint:=lstTmpStr.strings;
finally
lstTmpStr.free;
end;
ChangeIconSize(imgMain.width);
end;

procedure OpenWindow(spath:String); //通用打开窗体
const
SW_SHOW=1;
ID_YES=6;
MB_YESNO=4;
begin
ifDirectoryExists(spath) or (copy(spath,1,7)='http://') then
ShellExecute(0,'open','Explorer', '"'+spath+'"', '',SW_SHOW)
else if fileExists(spath) then
   ShellExecute(0,'open',spath,'','"'+ExtractFilePath(spath)+'"',1)
else
begin
//showtrayhint('其它',spath);
r := CreateOleObject('wscript.shell');
r.run(spath);
r := Unassigned;
end;
end;

procedure RunAction;//执行用户指定的操作
const
SW_SHOW=1;
ID_YES=6;
MB_YESNO=4;
begin
case g_iActionIndex of
0: //打开文件夹/盘符
OpenWindow(g_FolderPathStr);
1://打开文件或运行程序
begin
if g_FilePathStr <> '' then
begin
if fileExists(g_FilePathStr) then
ShellExecute(0,'open', g_FilePathStr,g_ParaMeterStr,'"'+ExtractFilePath(g_FilePathStr)+'"',1)
end else
ShowTrayHint('提示','尚未设置文件/程序路径！');
end;
2://打开我的电脑
OpenWindow('::{20D04FE0-3AEA-1069-A2D8-08002B30309D}');
3://打开我的文档
OpenWindow('::{450D8FBA-AD25-11D0-98A8-0800361B1103}');
4://打开回收站
OpenWindow('::{645FF040-5081-101B-9F08-00AA002F954E}');
5://打开网上邻居
OpenWindow('::{208D2C60-3AEA-1069-A2D7-08002B30309D}');
6://打开控制面板
// OpenWindow(g_sControlPanelGUID);
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL','',SW_SHOW);
// 7://打开收藏夹
// OpenWindow($17);
8://打开CMD命令行模式
OpenWindow('CMD');
9://打印机和扫描仪{may be error}
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL Sticpl.cpl','',SW_SHOW);
10: //IE浏览器
OpenWindow('explorer ::{871C5380-42A0-1069-A2EA-08002B30309D}');
11: //打开WinPPT
OpenWindow('powerpnt');
12: //打开Word
OpenWindow('WinWord');
13: //打开MSExecl
OpenWindow('excel');
14: //打开ACCESS
OpenWindow('msaccess');
15: //打开添加/删除程序
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL appwiz.cpl','',SW_SHOW);
16: //打开显示属性
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL desk.cpl','',SW_SHOW);
17: //鼠标属性
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL main.cpl @0','',SW_SHOW);
18: //打开Internet属性
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL inetcpl.cpl','',SW_SHOW);
19: //打开用户帐户属性
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL Nusrmgr.cpl','',SW_SHOW);
20: //打开系统属性
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL Sysdm.cpl','',SW_SHOW);
21: //打开日期/时间属性
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL timedate.cpl','',SW_SHOW);
22: //打开电源管理属性
ShellExecute(0,'Open','rundll32.exe','shell32.dll,Control_RunDLL Powercfg.cpl','',SW_SHOW);
23: //打开拨号属性
OpenWindow('Rasphone.exe');
24: //锁定系统
ShellExecute(0,'open','rundll32.exe','user32.dll,LockWorkStation','',SW_SHOW);
25: //打开关机对话框
if MessageBox(0,'确认要关机？','警告',MB_YESNO)=ID_YES then
ShellExecute(0,'open','shutdown','-p','',SW_SHOW);
26: //重新启动对话框
   if MessageBox(0,'确认要重启？','警告',MB_YESNO)=ID_YES then
   ShellExecute(0,'open','shutdown','-r -f -t 03','',SW_SHOW);
27: //打开任务管理器
OpenWindow('TaskMgr.exe');
28: //查找文件
begin
   r := CreateOleObject('Shell.Application');
   r.FindFiles;
   r := Unassigned;
   end;
29: //最小化所有窗体
begin
   r := CreateOleObject('Shell.Application');
   r.MiniMizeAll;
   r := Unassigned;
   end;
30: //关闭显示器屏幕
   SendMessage(Widget.Handle, $0112, 61808, 2);
end;
end;

procedure ActionMenuClicked(sender);//切换动作的菜单按下
begin
TMenuItem(g_lstMenuItems.Objects).checked:=False;
g_iActionIndex:=sender.tag;
SetSettingInt('CbbSelectItemIndex',g_iActionIndex);
sender.checked:=True;
ChangeBtnCap(sender.tag);
end;

Function AddMenuItems(aCaption:string; aTag:Integer;aProcedure:String; aMenu,aMenuLst:TObject):TMenuItem;
begin
result:=nil;
result:=TMenuItem.Create(Widget);
result.tag:=aTag;
result.caption:=aCaption;
result.Onclick:=aProcedure;
TMenuItem(aMenu).add(result);
TStringList(aMenuLst).AddObject(inttostr(aTag),result);
end;

procedure InitActionMenuList;//初始化Action菜单
var
lstAction:TString;
i:Integer;
begin
Try
lstAction:=TStringList.Create;
lstAction.LoadFromFile(WidgetPath+'ActionList.dat');
for i:=0 to lstAction.count-1 do
begin
AddMenuItems(lstAction.strings,i,'ActionMenuClicked',miChangeAction,g_lstMenuItems);//创建Menu子菜单
end;
TMenuItem(g_lstMenuItems.Objects).Checked:=True;
finally
lstAction.Free;
end;
end;

procedure InitImgMenuList ; //初始化Button
var
i:Integer;
sImgFileName:string;
begin
g_lstBtnImgMenuItems.clear;
g_lstBtnImgFiles.text:=GetFileList(WidgetPath+'ButtonImages','.png',false,false,True);
for i:=0 to g_lstBtnImgFiles.count-1 do
begin
sImgFileName:=g_lstBtnImgFiles.Strings;
sImgFileName:=Copy(sImgFileName,Pos('ButtonImages\',sImgFileName)+13,Pos('.',sImgFileName)-Pos('ButtonImages\',sImgFileName)-13);
AddMenuItems(sImgFileName,i,'ChangeBtnImgClicked',miChangeBtnImg,g_lstBtnImgMenuItems);//创建Menu子菜单
end;
end;

//--- Widget初始化事件，当打开Widget时会触发此事件 ---
procedure OnWidgetInit;
begin
BeginUpdate;
//初始化代码，如读取配置信息，初始化一些变量
imgMain.FileName:=GetSetting('IconFileName',WidgetPath+'drag.png');

btnMain.OnDblClick:='RunAction';
btnMain.Caption:=GetSetting('IconCaption','我的电脑');
if GetSettingInt('Lblvisible',1) = 0 then btnMain.visible:=false;

ChangeIconSize(GetSettingInt('IconSize',128));
{读取用户设置}
g_iActionIndex:=GetSettingInt('CbbSelectItemIndex',2);
g_FolderPathStr:=GetSetting('FolderPath','C:\');
g_FilePathStr:=GetSetting('FileName','');
g_ParaMeterStr:=GetSetting('ParaMeter','');
if isWinVista then//不同系统控制面板参数不同
g_sControlPanelGUID:='::{21EC2020-3AEA-1069-A2DD-08002B30309D}'
else
g_sControlPanelGUID:='::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}';

btnMain.filename:=GetSetting('btnMainImgFilename',WidgetPath+'ButtonImages\AI3.png');
g_lstMenuItems:=TStringList.Create;//维护创建的Button的列表
g_lstBtnImgMenuItems:=TStringList.create;
g_lstBtnImgFiles:=TStringList.create;
InitActionMenuList;
InitImgMenuList;
//取得选择的按钮图片序列，设置菜单
g_iBtnimgMenuIndex:=g_lstBtnImgFiles.IndexOf(btnMain.filename);
if g_iBtnimgMenuIndex=-1 then//万一用户调用的文件不在默认目录内则取值0
g_iBtnimgMenuIndex:=0;
TMenuItem(g_lstBtnImgMenuItems.Objects).checked:=True;
EndUpdate;
end;

//--- Widget关闭事件，当关闭Widget时会触发此事件 ---
procedure OnWidgetClose;
var
i:integer;
begin
for i:=g_lstMenuItems.count-1 downto 0 do//先释放所有菜单选项
TMenuItem(g_lstMenuItems.Objects).free;
for i:=g_lstBtnImgMenuItems.count-1 downto 0 do //释放菜单
TMenuItem(g_lstBtnImgMenuItems.Objects).free;
g_lstMenuItems.free;
g_lstBtnImgFiles.free;
g_lstBtnImgMenuItems.free;
end;

//--- Widget事件，当小工具成为当前活跃窗体时，触发此事件
procedure OnWidgetActivate;
begin
BeginUpdate;
imgSelectedBg.visible:=True;
EndUpdate;
end;

procedure OnWidgetDeactivate;
begin
BeginUpdate;
imgSelectedBg.visible:=False;
EndUpdate;
end;

procedure OnWidgetMouseWheel(WheelDelta);
begin
BeginUpdate;
if WheelDelta>0 then
begin
if imgMain.width >=256 then
begin
EndUpdateAll;
exit;
end;
if imgMain.width + 3 >= 256 then
   ChangeIconSize(256)
else
ChangeIconSize(imgMain.width + 3);
end
else
begin
if imgMain.width <= 32 then
begin
EndUpdateAll;
exit;
end;
if imgMain.width - 3 <= 32 then
   ChangeIconSize(32)
else
ChangeIconSize(imgMain.width - 3);
end;
SetSettingInt('IconSize',imgMain.width ); //图标大小
EndUpdateAll;
end;
procedure imgMainDblClick(Sender:TObject);
begin
RunAction
end;
procedure miConcealPassedClick(Sender:TObject);
begin
RunAction
end;
procedure miChangeIconClick(Sender:TObject);
begin
ChangeIconClicked(True)
end;

//--- 文件拖放到事件，当文件拖放到Widget中时会触发此事件 ---
procedure OnWidgetDropFiles(Files:string);
var
lst:TStrings;
begin
if trim(files)='' then exit;
lst:=TStringList.create;
try
lst.text:=files;
if lst.count>0 then
begin
   if FileExists(lst.strings) and (LowerCase(ExtractFileExt(lst.strings))='.png') then
   begin
if CopyFile(lst.strings,AppPath+'Data\'+WidgetName+'.png',False) then
begin
         BeginUpdate;
imgMain.filename:='';
SetSetting('IconFileName',AppPath+'Data\'+WidgetName+'.png');
imgMain.filename:=AppPath+'Data\'+WidgetName+'.png';
         EndUpdate;
end;
   end;
end;
finally
lst.free;
end;
end;个是什么语言代码。不好意思。我是新人。我问一个不是au3的问题没关系吧。

veket_linux 发表于 2013-2-16 07:43:57

delphi --- object pascal

haijie1223 发表于 2013-2-16 08:35:05

pascal？……

menfan1 发表于 2013-2-16 12:14:47

呵呵，DELPHI 7

netegg 发表于 2013-2-16 16:36:38

delphi需要定义代码段开始结束?没印象了。第一感觉是basic系的

298311657 发表于 2013-2-16 23:20:08

ls已经有很多人说了，我就不回答了，我路过打酱油

h20040606 发表于 2013-2-20 06:58:37

pascal (delphi)

liu19910917 发表于 2013-2-22 15:39:57

看看学习下！！！

huangke 发表于 2013-2-22 15:52:31

pascal (delphi)....就是一个东西！

ningzhonghui 发表于 2013-3-2 17:33:10

感觉像是DELPHI 7代码多些

lxwlxwayy 发表于 2013-3-2 19:50:29

像是一种脚本語言

glsanshi 发表于 2013-3-4 21:21:22

学习着。。。。。。。。。。。看不懂

页: [1]

AUTOIT CN's Archiver

请教大家这个是什么语言代码