小编She*_*eep的帖子

看看这个小片段:

implementation
{$R *.dfm}

我将代码置于{$R *.dfm}其上方或下方吗？有关系吗？
我在这个问题上找不到任何确认.
是否有一套标准可以解决这个问题,还是仅仅是设计师？

我正在使用SetConsoleTextAttribute API(Delphi是具体的),无论如何我找不到任何可用颜色列表？谁能帮我吗

我很难弄清楚如何在最小化或当前不活动的窗口中模拟鼠标点击等.如果不清楚,我希望我的鼠标能够点击和填充而不实际使用鼠标.

例如,当我浏览网页时,我希望我的程序能够同时在另一个应用程序内部单击.

我怎么能做到这一点？我所能找到的只是旧的movemouse和setcursorpos东西...我们知道需要使用你的实际鼠标/光标.

好的,所以这就是我的意思,因为我无法想到一个更好的标题,我有2个编辑框.1表示字符串的输入,另一个表示输出.

我一直在试验edit2.text := LowerCase (edit1.text); &edit2.text := ReverseString (edit1.text);

我想同时使用函数LowerCase和ReverseString,所以它将大写字母串转换为小写并反转它..我只是想弄清楚如何做到这一点而不抛出各种编译器错误,任何人都可以帮助我

我知道Jvcl是什么..它是一组组件并且你安装它们,但我真正感兴趣的是Jedi win32 API转换的东西.我不确定如何处理它们或如何使用它们.

你没有安装它们吗？比方说,我想使用API​​ SendInput或类似的; 如何在Jedi API中找到如何使用它？这就是Jedi API的用途吗？

我看了他们的网站,搜索了没有运气的教程.我甚至下载了我能找到的所有帮助文件,但我还是迷路了.

好吧,我一直在Delphi中尝试使用Win32 API,我不确定在哪里查看使用它们的示例.查看MSDN如何仅显示C++示例.

我已经通过Delphi 7的帮助文件挖了好......我有点困惑所以我只是粘贴我找到的工作代码和帮助文件显示给我的代码,我不明白它是如何转换成我的工作代码...除非我正在使用的代码是如何被屠杀的.

所以这里是我正在尝试使用SetConsoleTextAttribute函数的代码

----我知道的代码可以改变颜色----

begin
   SetConsoleTextAttribute(GetStdHandle(
                          STD_OUTPUT_HANDLE),
                          FOREGROUND_RED OR
                          BACKGROUND_BLUE);

  Writeln('Red text on a blue background !');
  ReadLn;
end.

----------结束工作代码---------------------

--------现在这里是官方delphi文档中的一个剪辑-----

BOOL SetConsoleTextAttribute(

    HANDLE hConsoleOutput,  // handle of console screen buffer  
    WORD wAttributes    // text and background colors 
   );   

参数

hConsoleOutput

标识控制台屏幕缓冲区.句柄必须具有GENERIC_READ访问权限.

wAttributes

指定前景色和背景色属性.可以指定以下值的任意组合:FOREGROUND_BLUE,FOREGROUND_GREEN,FOREGROUND_RED,FOREGROUND_INTENSITY,BACKGROUND_BLUE,BACKGROUND_GREEN,BACKGROUND_RED和BACKGROUND_INTENSITY.例如,以下值组合在黑色背景上生成白色文本:

FOREGROUND_RED | FOREGROUND_GREEN | FOREGROUND_BLUE

------结束德尔福的帮助------

有人可以告诉我,我脑子里的哪个气缸没有开火吗？

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Tlhelp32, StdCtrls;

  function processExists(exeFileName: string): Boolean; 
var
  ContinueLoop: BOOL; 
  FSnapshotHandle: THandle; 
  FProcessEntry32: TProcessEntry32;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 
  Result := False;
  while Integer(ContinueLoop) <> 0 do 
  begin 
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) …