小编Tom*_*Tom的帖子

在AS 3中似乎没有stage.border属性？

我的类扩展了Sprite,什么是在flash对象周围绘制边框的最佳方法？

我必须制作一个兼容unix的windows delphi例程,它确认文件系统中是否存在文件名,与所需的CaSe完全相同,例如"John.txt",而不是"john.txt".

如果我检查"FileExists('john.txt')"它对于John.txt和JOHN.TXT到期窗口总是如此.

如何创建"FileExistsCaseSensitive(myfile)"函数来确认文件确实是它应该是什么.

DELPHI Sysutils.FileExists使用以下函数来查看文件是否存在,如何将其更改为双重检查文件名是否在文件系统上是小写并且存在:

function FileAge(const FileName: string): Integer;
var
  Handle: THandle;
  FindData: TWin32FindData;
  LocalFileTime: TFileTime;
begin
  Handle := FindFirstFile(PChar(FileName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
      if FileTimeToDosDateTime(LocalFileTime, LongRec(Result).Hi,
        LongRec(Result).Lo) then Exit;
    end;
  end;
  Result := -1;
end;

新的Windows 7默认隐藏系统托盘图标.

现在向用户显示信息的推荐方法是什么？

我需要向用户显示一个小的可点击图标,以便用户随时可以访问我的"工具".我应该使用小工具来显示我的GUI吗？它可以以某种方式与我的Delphi应用程序通信吗？

任何示例代码如何从中制作hashmap或类似列表

key=value CRLF   
key2=value2 CRLF

是否可以以某种方式将小工具安装到用户的桌面？我相信我需要将所有文件复制到用户的小工具文件夹,例如

C:\Users\curusername\AppData\Local\Microsoft\Windows Sidebar\Gadgets\test.gadget

但是,在此处复制文件不会运行小工具.我如何注册/激活它？

shell执行test.gadget是否足够？

如果外部应用程序返回退出代码5,我可以以某种方式强制重启吗？

[Run]
Filename: {app}\e.exe; Parameters: Z; Description: {cm:ALaunchProgram,{#ti}};

如果不能使用RUN部分,我可以在哪里调用ShellExec,以便在后期阶段运行可执行文件.

以下全局Hook线程占用太多CPU,除非我在那里添加Sleep(10),是否有另一个解决方案而不是Sleep(10 ms) - 休眠看起来不像是我的应用程序性能的最佳解决方案.如果我增加太多睡眠,它也不会减慢鼠标的速度.

  procedure THookThread.Execute;
    begin
      hookhandle := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseHook, Hinstance, 0);

     while not Terminated do
      begin    
        MessageLoop;
      //  Sleep(10);
      end;

      UnHookWindowsHookEx(hookhandle);
      hookhandle := 0;

    end;

procedure THookThread.MessageLoop;
var
  msg: TMsg;
begin
  while PeekMessage(msg, 0, 0, 0, PM_NOREMOVE) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;
end;

Inno Setup WizardImageFile（和WizardSmallImageFile）的位图看起来很糟糕，因为当 Windows 7 启用了大系统字体时，向导会比平时大，但图像的缩放比例非常错误。

有解决办法吗？

如果我在这样的地方添加自己的图片，就没有类似的问题：

BitmapImage1.AutoSize := True;
BitmapImage1.Align := alClient;
BitmapImage1.Left := 0;
BitmapImage1.Top := 0;
BitmapImage1.stretch := True;
BitmapImage1.Parent := Splash;

我如何使用inno脚本语言根据PC的时区设置检测用户所在的国家/地区.

我只需要知道用户是来自美国还是来自美国以外.

似乎Delphi 4在system.pas中根本没有IInterface类型

我怎样才能自己定义这种类型以便我可以使用JEDI？