Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Мои статьи [11]
Видео [3]

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Главная » Статьи

Всего материалов в каталоге: 14
Показано материалов: 11-14
Страницы: « 1 2

  1. function ZwSetInformationProcess(cs1:THandle; cs2:ULONG; cs3:Pointer; cs4:ULONG):ULONG; stdcall; external 'ntdll.dll';
  2.  
  3. function Non_Killable(Process: String; BSOD: Bool): ULONG;
  4. var
  5.   Val        : ULONG;
  6.   ProcessEntry  : TProcessEntry32;
  7.   hSnapshot  : THandle;
  8.   ProcessHandle : THandle;
  9.   ProcessID  : DWORD;
  10. begin
  11.   case BSOD of
  12.     True  : Val := $FFFFFFFF;
  13.     False : Val := $8000F129;
  14.   end;
  15.   hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  16.   ProcessEntry.dwSize := SizeOf(ProcessEntry32);
  17.   while Process32Next(hSnapshot, ProcessEntry) do
  18.   begin
  19.     if Process = ProcessEntry.szExeFile then
  20.     begin
  21.       ProcessID := ProcessEntry.th32ProcessID;
  22.       ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, True, ProcessID);
  23.       CloseHandle(hSnapshot);
  24.     end;
  25.   end;
  26.   Result := ZwSetInformationProcess(ProcessHandle, $21, @Val, SizeOf(Val));
  27. end;
Мои статьи | Просмотров: 488 | Добавил: Mitiay | Дата: 28.05.2014 | Комментарии (0)

unit Unit1;
 
interface
 
uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, WinSock ,
 oleAuto, Vcl.StdCtrls;
type
 TForm1 = class(TForm)
 Button1: TButton;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
 
var
 Form1: TForm1;
implementation
 
{$R *.dfm}
 
function GetLocalIP: String;//Получить локальный IP компьютера
const WSVer = $101;
var
 wsaData: TWSAData;
 P: PHostEnt;
 Buf: array [0..127] of Char;


Мои статьи | Просмотров: 236 | Добавил: Mitiay | Дата: 27.05.2014 | Комментарии (0)

 

Многие начинающее программисты сталкиваются с проблемой, программы написанные на Delphi имеют большой размер. Сейчас  компьютеры могут иметь винчестер с большим накопительным объемом (более 1.5 TB), и пользователей не волнует размер приложения, однако программы с маленьким размерам работают быстрее и стабильнее. Кроме того, если возникает необходимость распространения созданного приложения с помощью мобильного носителя, например флешки, то проблема уменьшения размера исполняемого файла становится актуальной.

В этой статье я расскажу как оптимизировать свою программу так, что бы она занимала меньше места на жестком диске.

1) С начала, вы должны определить для чего вы создали программу. Если она должна запустится, выполнить какое нибудь действие и закрыться, то есть ничего не отображая, то нужно удалить главную форму, так как форма занимает много места (подключаются различные модули, отвечающие за графическое отображение приложения). Для этого нажимаете View - Project Manager - My_ProjectUnit1 и нажать кнопку Удалить.


Оригинал статьи:http://fancydev.ru/content/sposoby-umensheniya-razmera-ispolnyaemogo-fayla-v-delphi

Мои статьи | Просмотров: 633 | Добавил: Mitiay | Дата: 26.05.2014 | Комментарии (0)

1-10 11-14
    Главная   Регистрация   Вход  
Форма входа

Поиск

  • Есть вопросы?
  • Друзья сайта


    Разработка программного обеспечения
    Copyright MyCorp © 2020 Бесплатный хостинг uCoz