Добавить в закладки
Поиск
 
 

Результаты :
 


Rechercher Расширенный поиск

Вход

Забыли пароль?

Последние темы
Счетчики
Rambler's Top100
Все файлы, находящиеся на сайте, были найдены в сети Интернет как свободно распространяемые и добавлены исключительно в ознакомительных целях.
Перепечатка материалов (в любом виде) с данного сайта без письменного разрешения администратора запрещена.
Copyright ©2010-2011 Mine.ChudoForum.Ru - Все права защищены

Как убрать программу из списка Alt+Ctrl+Del

Предыдущая тема Следующая тема Перейти вниз

Как убрать программу из списка Alt+Ctrl+Del

Сообщение автор den в Чт Апр 21 2011, 14:09

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'KERNEL32.DLL';

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin //Скрываем
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin //Опять показываем
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 0);
end;
avatar
den
Модератор
Модератор

Сообщения : 36
Благодарности : 11

Посмотреть профиль http://mine.chudoforum.ru

Вернуться к началу Перейти вниз

Программно нажимаем Print Screen

Сообщение автор den в Чт Апр 21 2011, 14:11

Приведённая здесь функция делает копию изображения экрана и сохраняет
её в буфере обмена (Clipboard). Так же необходимо включить в
Ваш проект файл ClipBrd.pas.

procedure SendScreenImageToClipboard;
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Clipboard.Assign(bmp);
finally
bmp.Free;
end;
end;


Следующая функция скопирует изображение экрана в в bitmap. Переменная
bitmap *должна* быть инициализирована до вызова этой функции.

procedure GetScreenImage(bmp: TBitmap);
begin
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
end;
avatar
den
Модератор
Модератор

Сообщения : 36
Благодарности : 11

Посмотреть профиль http://mine.chudoforum.ru

Вернуться к началу Перейти вниз

Как запретить Ctrl-Alt-Del

Сообщение автор den в Чт Апр 21 2011, 14:14

var
i : integer;
begin
i := 0;
{запрещаем Ctrl-Alt-Del}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @i, 0);
end.
// необходим unit WinProcs
// для Alt-Tab: SPI_SETFASTTASKSWITCH
avatar
den
Модератор
Модератор

Сообщения : 36
Благодарности : 11

Посмотреть профиль http://mine.chudoforum.ru

Вернуться к началу Перейти вниз

Re: Как убрать программу из списка Alt+Ctrl+Del

Сообщение автор Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения