// Включение, приминение и отключения привилегии.
// Для примера возьмем привилегию отладки приложений 'SeDebugPrivilege'
// необходимую для завершения ЛЮБЫХ процессов в системе (завершение процесов
// созданных текущим пользователем привилегия не нужна.

function ProcessTerminate(dwPID:Cardinal):Boolean;
var
hToken:THandle;
SeDebugNameValue:Int64;
tkp:TOKEN_PRIVILEGES;
ReturnLength:Cardinal;
hProcess:THandle;
begin
Result:=false;
// Добавляем привилегию SeDebugPrivilege
// Для начала получаем токен нашего процесса
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, hToken ) then
exit;

// Получаем LUID привилегии
if not LookupPrivilegeValue( nil, 'SeDebugPrivilege', SeDebugNameValue )
then begin
CloseHandle(hToken);
exit;
end;

tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Luid := SeDebugNameValue;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ ... Читать дальше »

Можно ли запретить Alt-F4, чтобы предотвратить закрытие формы?



procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;

Много видел статей про создания Билдера к трою или вирю и захотел написать свой.

Как всегда не чего лучше изучения книг и практики нету(ну возможно просмотр видео 

Ты написал свой трой и каждый раз его редактировать в исходниках не удобно,

согласись.

(такие параметры на пример как почта или ftp)

Для этого мы и напишем билдер.


Пример будет на замене обычного текста в простой программе.

Открываем delphi 7,создаём простой проект и на форму кинем Edit.

В инспекторе объекта Edit ищем Text и вписываем xxxxxxxxxx можете другое написать

,не в этом суть,а в количестве х

Так как большее количество мы не изменим и программа просто не запустится(то есть,

чем больше х тем лучше).

Сохраните проект и компилируйте
Назовём полученный файл test.exe

Теперь приступим к созданию билдера,который будет изменять надпись

в Edit(xxxxxxxxxx) на нужную нам.

Открываем опя ... Читать дальше »

, Registry;
....
.....
procedure TForm1.FormShow(Sender: TObject);
Var RegIniFile:TRegIniFile;
begin
RegIniFile:=TRegIniFile.Create('cargo29');
Edit1.Text:=RegIniFile.ReadString('Form1','Edit1Text',Edit1.Text);
RegIniFile.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var RegIniFile:TRegIniFile;
begin
RegIniFile:=TRegIniFile.Create('cargo29');
RegIniFile.WriteString('Form1','Edit1Text',Edit1.Text);
RegIniFile.Free;
end;

DATA WAVE путь до файла // Музыка

MYICON ICON путь до файла // Иконка

код использования 

... Читать дальше »