小编TLa*_*ama的帖子

有没有办法在Inno Setup中获取本地日期时间戳？

我的程序在硬盘可用空间上执行任务.任务很长,需要1-2个小时.

问题是,在笔记本电脑上,当用户处于非活动状态时,硬盘可能会在几分钟后关闭.

如何以编程方式防止Windows硬盘关闭(关闭电源)？

对于Delphi VCL,有TWebBrowser一些第三方组件TEmbeddedWebBrowser可用于浏览网页.

是否有类似的Web浏览器组件,但对于Delphi XE2中的Firemonkey框架(理想情况下支持Windows和Mac)？

使用Office XP样式显示聚焦/选定列表框项目的最简单,最干净的方法是什么？

请参阅此示例图像以更清晰地显示该想法:

我想我需要将Listbox Style设置为lbOwnerDrawFixed或者lbOwnerDrawVariable然后修改OnDrawItem事件？

这是我被卡住的地方,我不确定在那里写什么代码,到目前为止我试过:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
  begin
    if odSelected in State then
    begin
      Brush.Color := $00FCDDC0;
      Pen.Color   := $00FF9933;
      FillRect(Rect);
    end;

    TextOut(Rect.Left, Rect.Top, TListBox(Control).Items[Index]);
  end;
end;

我应该知道这不起作用,我会得到各种各样的时髦事情:

我做错了什么,更重要的是我需要改变什么才能让它发挥作用？

谢谢.

如何TChromium在Delphi中获取和设置滚动条位置？

我需要静音TChromium组件的声音来制作一个静音浏览器.主要问题是在Windows XP上,当我静音浏览器的声音时,它会使整个系统声音静音.

有没有办法如何静音TChromium组件的声音？

我正在尝试使用ADO连接到SQL Server数据库.密码包含一个空格作为最后一个字符.构建连接字符串时,如何转义密码？

MSDN说它用单引号或双引号,但这似乎不起作用......

http://msdn.microsoft.com/en-us/library/system.data.sqlclient.sqlconnection.connectionstring.aspx

这是我的连接字符串的样子:

Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=master;Data Source=test;uid=john;pwd="123 "

谢谢

我正在使用Inno setup studio编写一个pascal函数,它检查对象是否为null并执行某些操作

到目前为止我有:

XMLDocument.setProperty('SelectionLanguage', 'XPath');
XMLNode := XMLDocument.selectSingleNode(APath);
if (XMLNode=Null) then
begin
//do stuff
End
Else
//do other stuff
End

但我一直在收到invalid variant operation错误.

如何在Inno Setup Pascal脚本代码中检查对象是否为空？

在Firemonkey中,我们可以使用TShadowEffect来绘制漂亮的阴影.

此阴影还会调整其不透明度和半透明度,以便在控件重叠时显示其下方的正确组件.

没有TShadowEffect:

使用TShadowEffect:

有没有办法在VCL表单中绘制相同的阴影效果而不嵌入FMX表单？

我创建了一个(Delphi XE2)Firemonkey示例程序,它包含一个TButton和一个带有两个不同过滤器的TSavedialog.(TSaveDialog组件支持Win32/Win64和OS X平台.)

它在Win32/Win64上工作正常,但我现在不知道为什么它不显示OS X上的Savedialog过滤器(VirtualBox/OS X 10.7.x).

如何让它在OS X上运行？

procedure TForm1.Button_SaveClick(Sender: TObject);
begin
  SaveDialog.Filter:='Format_1 (*.fmt1)|*.fmt1|Format_2 (*.fmt2)|*.fmt2';

  If Savedialog.Execute Then ShowMessage(SaveDialog.FileName+#13+'Selected filterindex: '+Inttostr(SaveDialog.FilterIndex));
end;