Fujitsu Amilo L1310G Sklepowy-NOWY+programy orginalne
Poszukuje programu, który zrobił by zrzut ekranu z BIOS'a
Pomocy - program do cięcia muzyki -cool edit
Biologia - programy edukacyjne oraz grgy i quizy
Szukam programu pokazującego obroty wiatraka CPU...
Program do zmiany/aktualizacji z internetu tagów IDv3/4
Potrzebuje Programu Do Kasowania Słów Z Piosenek
Program do zmiany IP - problem z rapidshare.. :/
Program do rysowania osi współrzędnych
Program do tworzenia przewodników wideo
chomiki
Witam!Nie wiem jak umieścić program w zasobniku systemowym.
Sprawdzałem kiedyś jakiś kod i w starszej wersji było ok a teraz nie.
Obecnie mam Delphi 2005
zobacz czy to działa... na d7 dziala na 100%
program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Windows;
{$R *.RES}
var ExtendedStyle : Integer;
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle,GWL_EXSTYLE,ExtendedStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Teraz na formie umieść komponent TPopupMenu:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellAPI, ExtCtrls, Menus;
type
Form1 = class(TForm)
PopupMenu1: TPopupMenu;
ShowMainForm1: TMenuItem;
N1: TMenuItem;
ExitApplication1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure ShowMainForm1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ExitApplication1Click(Sender: TObject);
private
procedure WndProc(var Msg : TMessage); override;
public
IconNotifyData : TNotifyIconData;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons := [biSystemMenu];
with IconNotifyData do begin
hIcon:=Application.Icon.Handle;
uCallbackMessage:=WM_USER+1;
cbSize:=SizeOf(IconNotifyData);
Wnd:=Handle;
uID:=100;
uFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
end;
StrPCopy(IconNotifyData.szTip, Application.Title);
Shell_NotifyIcon(NIM_ADD,@IconNotifyData);
end;
procedure TForm1.WndProc(var Msg : TMessage);
var
p : TPoint;
begin
if (Msg.Msg=WM_USER+1)and(Msg.lParam=WM_RBUTTONDOWN) then
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x, p.y);
end; inherited;
end;
procedure TForm1.ShowMainForm1Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
Form1.Hide;
end;
procedure TForm1.ExitApplication1Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @IconNotifyData);
Application.ProcessMessages;
Application.Terminate;
end;
end.
[ Dodano: 2006-06-22, 19:01 ]
ja Ci polecam komponet TrayIcon./ Jest łatwy w obsłudze.
ja Ci polecam komponet TrayIcon./ Jest łatwy w obsłudze.
a gdzie go znajde??
bo szukałem lecz bez skutku...
a gdzie go znajde??
bo szukałem lecz bez skutku...
Pomyśl
a tu szukałeś
http://www.delphi32.com/vcl/lists/sc_n_28.asp
to nie to.
to jest to:
http://download.4programm...load.php?id=926
