| Автор
| Сообщение |
|
|
|
Цитата |
|
1) Подскажите товарищи (или господа) программеры как заблокировать клаву и мыш средствами ДЕЛФИ !!!
Была такая фишка как EnableHardwareInput(Enable:Boolean) или, что-то в этом роде, но она не работает в 7 ДЕЛФЕ ...
2) Как отправить файл по Электронной почте скажем на мой e-mail .
Зарание Благодарин !!! |
|
| В начало |
|
 |
|
|
 |
|
|
|
Цитата |
|
(1)
| Код: | | winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); |
Клава OFF
| Код: | | winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); |
Маус OFF
кстати а вот так клава врубается
Отрубить
| Код: |
Asm
in al,21h
or al,00000010b
out 21h,al
End; |
Врубить
| Код: |
Asm
in al,21h
mov al,0
out 21h,al
end; |
(2) | Код: |
unit Email;
interface
uses Windows, SusUtils, Classes;
function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;
function IsOnline: Boolean;
implementation
uses Mapi;
function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;
var
MapiMessage: TMapiMessage;
MapiFileDesc: TMapiFileDesc;
MapiRecipDesc: TMapiRecipDesc;
i: integer;
s: string;
begin
with MapiRecipDesc do
begin
ulRecerved:= 0;
ulRecipClass:= MAPI_TO;
lpszName:= PChar(RecipName);
lpszAddress:= PChar(RecipAddress);
ulEIDSize:= 0;
lpEntryID:= nil;
end;
with MapiFileDesc do
begin
ulReserved:= 0;
flFlags:= 0;
nPosition:= 0;
lpszPathName:= PChar(Attachment);
lpszFileName:= nil;
lpFileType:= nil;
end;
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(Subject);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 1;
lpRecips := @MapiRecipDesc;
if length(Attachment) > 0 then
begin
nFileCount:= 1;
lpFiles := @MapiFileDesc;
end
else
begin
nFileCount:= 0;
lpFiles:= nil;
end;
end;
Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end; |
|
|
| В начало |
|
|
DrPass
Знающий :)
/Почетный Модератор/
Возраст: 31
Знак зодиака: 
Зарегистрирован: 02.05.2002
Сообщения: 5709
Откуда: Донецк
|
|
|
Цитата |
|
| Цитата: | Отрубить
Код:
Asm
in al,21h
or al,00000010b
out 21h,al
End;
Врубить
Код:
Asm
in al,21h
mov al,0
out 21h,al
end; |
Ни в коем разе. Прямой ввод/вывод в порт в Винде в 21 веке не катит. Это же тебе не Вынь95.
_________________
Да пребудет с вами Сила! |
|
| В начало |
|
|
|
