В этом примере посылается сообщение кнопке ПУСК.
Не забудьте поставить Messages в раздел USES
procedure TForm1.BitBtn1Click(Sender: TObject);
Var Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;
Begin
Tray := FindWindow('Shell_TrayWnd', NIL);//находим материнское окно
Child := GetWindow(Tray,GW_CHILD);
GetClassName(Child, C, SizeOf(C));// Извлекаем название дочернего элемента
s:=Strpas(c);
IF s<>'Button' then begin // Если название элемента не подходит
Child := GetWindow(Child, GW_HWNDNEXT); //Смотрим следующий эл-т
GetClassName(Child, C, SizeOf(C));
s:=Strpas(c);
end;
SendMessage(Child,WM_LBUTTONDOWN,0,0) ; //собственно посылаем сооющение
end;
К оглавлению
Сменить рисунок на рабочем столе
SystemParametersInfo(SPI_SETDESKWALLPAPER ,0,PChar('путь к файлу')
,SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE);
К оглавлению
{$R *.DFM}
uses ShellApi, shlobj, registry;
procedure TForm1.WMICON(var msg: TMessage);
var P : TPoint;
begin
case msg.LParam of // обработка обратных сообщений
WM_LBUTTONUP:
begin
GetCursorPos(p);
SetForegroundWindow(Application.MainForm.Handle);
PopupMenu1.Popup(P.X, P.Y);
end;
WM_LBUTTONDBLCLK : RestoreItemClick(Self);
end;
end;
procedure TForm1.WMSYSCOMMAND(var msg: TMessage);
begin
inherited;
if (Msg.wParam=SC_MINIMIZE) then HideItemClick(Self); //обработка минимизирвания окна
end;
procedure TForm1.RestoreMainForm;
var i,j : Integer;
begin //Эта процедура отрисовывает обратно форму
// В принцепе можно обойтись и тривиальным Form.Visible:=True
Application.ShowMainForm := True;
ShowWindow(Application.Handle, SW_RESTORE);
ShowWindow(Application.MainForm.Handle, SW_RESTORE);
if not ShownOnce then
begin
for I := 0 to Application.MainForm.ComponentCount -1 do
if Application.MainForm.Components[I] is TWinControl then
with Application.MainForm.Components[I] as TWinControl do
if Visible then
begin
ShowWindow(Handle, SW_SHOWDEFAULT);
for J := 0 to ComponentCount -1 do
if Components[J] is TWinControl then
ShowWindow((Components[J] as TWinControl).Handle, SW_SHOWDEFAULT);
end;
ShownOnce := True;
end;
end;
procedure TForm1.CreateTrayIcon(n:Integer);
var nidata : TNotifyIconData;
begin
with nidata do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle; //HWND вашего окна (окна принимающего обратные сообщения)
uID := 1; // номер значка
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_MYICONNOTIFY; //обратное сообщение
hIcon := Application.Icon.Handle; // то откуда сдергивается значок это может быть и ImageList и т.д.
StrPCopy(szTip,Application.Title); // всплывающая строка
end;
Shell_NotifyIcon(NIM_ADD, @nidata); // добавление значка
end;
procedure TForm1.DeleteTrayIcon(n:Integer);
var nidata : TNotifyIconData;
begin
with nidata do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, @nidata); // удаление значка
end;
procedure TForm1.FileExitItem1Click(Sender: TObject);
begin
Close;
end;
end.
{Также есть еще такая фигня Shell_NotifyIcon(NIM_Modify, @nidata) позволяет
менять уже установленный значок, не прибегая к его убиванию и построению заново
Есть более короткий путь всех этих штук, но он не очень корректный, и хреновато
работает под Win98, но проще в понимании, если надо пиште скину}
К оглавлению
Открытие файла по расширению
В строку Uses вставьте ShellApi
ShellExecute(0, Nil,PChar( путь к файлу ), Nil, Nil, SW_NORMAL);
К оглавлению
Перегрузить компьютер
procedure TForm1.Button1Click(Sender: TObject);
begin
exitWindowsEx(EWX_SHUTDOWN,0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
exitWindowsEx(EWX_REBOOT,0);