Изменить надписи на кнопках в Windows

[Dr.Badnezz]

Давно встечал программу, с помощью которой, все кнопки в Windows XP с надписями OK, Да, Нет, Отмена.... заменялись на свои надписи. Кто нибудь знает, как это реализуется средствами Delphi?

[jone]

program Projectl;
windows,
Messages;
//Эта функция вызывается, когда найдено дочернее окно
function EnumChildWnd(h: hwnd): BOOL; stdcall;
begin
SendMessage(h,WM_SETTEXT,O,lparara(LPCTSTR('][ с тобой1
)));
Result:=true;
end;
//Эта функция вызывается, когда найдено главное окно
function EnuinWindowsWnd(h: hwnd): BOOL; stdcall;
begin
SendMessage(h,WM_SETTEXT,O,lparam(LPCTSTR('][ с тобой')));
EnumChildWindows(h,@EnumChildWnd,0);
end;
var
h:THandle;
begin
//Запускаем бесконечный цикл
while true do
begin
//Запускаем перечисление всех окон
EnumWindows(@EnumWindowsWnd,0);
//Делаем задержку в 1000 мс
h:=CreateEvent(nil, true, false, '') ;
WaitForSingleObject(h, 1000);
CloseHandle(h);
end;
end.

[Arigato]

Набросал пример:

program Project1;

uses Windows, Messages, SysUtils;

const Count = 2;
      Replace: array[1..Count,1..2] of string =
      (('Отмена',  '[CANCEL]'),
       ('ОК', 'Жмякнуть'));

var MyPointer: Pointer;
    PStr: PChar;
    Str: string;

function MyCallbackFunction (H: HWND; P: Pointer): Bool; stdcall;
var I: Integer;
begin
  Result := True;
  GetWindowText (H, PStr, 255);
  Str := Trim (PStr);
  if Str <> '' then
  begin
    for I := 1 to Count do
    begin
      if Str = Replace[I,1] then
      begin
        SendMessage (H, WM_SETTEXT, 0, Integer (PChar (Replace[I,2])));
        Break;
      end; {if}
      end;
  end; {if}
  EnumChildWindows (H, @MyCallbackFunction, Integer (P));
end;

begin
  GetMem (PStr, 256);
  while True do
  begin
    EnumWindows (@MyCallbackFunction, Integer (MyPointer));
    Sleep (25);
  end; {while}
end.

[Dr.Badnezz]

Спасибо вам!!!!!!!!!!!!!!