procedure TForm1.ExtractResourse(const AResName, ANewName: string);
var
rsDrivers: TResourceStream;
begin
rsDrivers:= TResourceStream.Create(HInstance, AResName, RT_RCData);
rsDrivers.SaveToFile(ANewName);
rsDrivers.Free;
end;

procedure TForm1.bbOklClick(Sender: TObject);
begin
ExtractResourse('TestResource', 'C:\TestFile.exe');
end;
end;

Use GetWindowsDirectory Win32 function: 

procedure TForm1.Button1Click(Sender: TObject);
var
PWindowsDir: array [0..255] of Char;
begin
GetWindowsDirectory(PWindowsDir,255);
Label1.Caption:=StrPas(PWindowsDir);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Volume: DWORD;
begin
volume := 6500* (TrackBar1.Max - TrackBar1.Position);
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume );
end;

// Включение, приминение и отключения привилегии.
// Для примера возьмем привилегию отладки приложений '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 путь до файла // Иконка

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

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

Да помнится было время, когда я очень долго искал информацию о возможности корректной отправки письма с вложениями . Компоненты от Инди (Indy) – это те еще фрукты. С русским языком помню были проблемы и прикрепленные файлы были испорчены или вообще не отсылались.

В этом посте я выкладываю исходники отправки электронной почты (email) для Delphi 7, 2007 , 2009 и 2010.

-:: Для Delphi 2007 ::-

...

type
TDummyEncode = class
protected
class procedure SetCharSet(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
end;

{ TEncode }

class procedure TDummyEncode.SetCharSet(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
begin
VCharSet:='windows-1251';
VTransferHeader := bit8;
VHeaderEncoding := 'B';
end;

procedure TForm1.SendMail();
var
Message : TIdMessage;
begin
IdSMTP1.Host := 'Host';
IdSMTP1.Username :='UserName';
IdSMTP1.Passwo ... Читать дальше »