у меня 2-ва вопроса...Как

[KurtWagner]

как обновить, т.е. сбросить как в стандарте у виндовса через правую кнопку мышм.. прост я сделал изменение в рестре и они срабатывают только при обнове...(сбросе) и как сделать горячию клавищу не через Ctrl или там Alt + Shift а просто скажем NumPad3 вот код... который надо вправить

if not RegisterHotkey(Handle, 15, MOD_Alt, vk_Numpad3) then
ShowMessage('Зажал Alt + Numpad3');

хочу через одну а не через 2-ве...

[NOOB]

1) тебе нужно создать PopupMenu, там создай пункт "Обновить";
2) не знаю зачем тебе обновлять на клавишу "vk_Numpad3", в Windows вообще по умолчанию обновление на "F5" можешь сделать так: в PopupMenu выбери пункт "Обновить" и задай ShotCut = "F5", было бы понтово в твою процедуру добавить проверку: какой компонент твоей формы в данный момент активен, чтобы можно было обновлять по разному, отдельно для каждого компонента;
3) создай обрабочтчик на OnClick пункту "Обновить", или присвой ему "Action";
4) Если тебе принципиально важно обновлять на клавишу "vk_Numpad3", то создай обработчик события OnKey (любой из трех) для того компонента, который тебе нужно обновлять и туда тоже вставь вызов твоей процедуры.

[KurtWagner]

NOOB я хочу не через правую а через Button1 и какой кодинг?

[NOOB]

Что ты хочешь обновить, какой компонент или всю форму разом?

[]Wowan[]

Если ты хочешь обновить окно, пошли сообщение WM_Paint его дескриптору. Например как ты хотел по кнопке Button1.

procedure TFrom1.Button1Click (Sender: TObject);
begin
SendMessage (Form1.Handle, WM_Paint, 0, 0);
End;

[KurtWagner]

хочу сброить стол, т.е. я сделал замену в рестре и мне надо обновить стол вот у виндовса есть такая функция когда нажимаем правой кнопкой мыши на рабочем столе и шелкаем Обновить мне помогает но я хочу это сделать кодом в программе... вот это сразу говорью не помогло

 uses
   ShlObj;

 procedure RefreshDesktop1;
 begin
   SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
 end;

[vetalmash]

Можно ли в Delphi 7 создать прогу которая через каждую минуту в другою проге нажимала на одну кнопку

[Kotofff]

Сообщение от KurtWagner

хочу сброить стол, т.е. я сделал замену в рестре и мне надо обновить стол вот у виндовса есть такая функция когда нажимаем правой кнопкой мыши на рабочем столе и шелкаем Обновить мне помогает но я хочу это сделать кодом в программе...

Delphi World :

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065, 0);
end;

procedure RefreshDesktop;
var
  hDesktop: HWND;
begin
  hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
  PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
  PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;

[Kotofff]

Сообщение от vetalmash

Можно ли в Delphi 7 создать прогу которая через каждую минуту в другою проге нажимала на одну кнопку

Можно ...
DelphiWorld тебе поможет ...

[KurtWagner]

Kotofff брат, не помогает...

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure RefreshDesktop;
var
  hDesktop: HWND;
begin
  hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
  PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
  PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065, 0);
end;

end.