procedure SelPath;
var
  s:string;
begin
  s:=edtPath.text;
  if SelectDirectory('请选择图片目录：',s) then
    edtpath.text:=s;
end;

//保存配置
procedure SaveIni;
begin
  if trim(edtpath.text)<>'' then
  begin
  	if copy(edtpath.text,length(edtpath.text),1)<>'\' then
  	  edtpath.text:=edtpath.text+'\';
    SetSetting('Folder',edtPath.text);
  end;
end;

//--- Widget设置窗口初始化事件，当打开Widget设置窗口时会触发此事件 ---
procedure OnSettingInit;
begin
  edtPath.text:=GetSetting('Folder','');
end;

//--- 按下设置窗口的确定按钮时，触发此事件 ---
//通过设置返回值来改变是否允许确认,当result为False时不关闭设置窗口
function OnSettingClose(iResult);
begin
  if trim(edtpath.text)='' then
  begin
    showtrayhint('提示','请选择目标文件夹!');
    Result:=false;
    exit;
  end;
  result:=true;
  if Result then
    SaveIni;
end;
