Перейти к содержанию
  • Регистрация

леля рачок

Пользователи
  • Публикаций

    3
  • Зарегистрирован

  • Посещение

Информация о леля рачок

  • Звание
    Новичок
  1. ShellExecute работает а CreateProcess подчеркивается красным и ошибку дает.
  2. Я написала несколько отдельных программ в RAD Studio 10.1 Berlin. Одну программу в виде меню которая запускает эти программы. Необходимо идентифицировать эти программы как программы написанные мной. Проверка посходит путем считывания label если он соответствует ожиданиям, то программа-меню записывает в label другой текст и форма на которой находится label считывает его и если все верно показывает компоненты которые содержит. Программа-меню свое свойство visible:=false; Как только программа которая была вызвана исчезает из памяти свойство программа-меню visible:=true идентифицирует и запускает вот эта: Код: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,ShellAPI, FMX.Edit, FMX.Controls.Presentation, FMX.StdCtrls,ShellAPI; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(1, nil, PChar(Edit1.Text), nil, nil, 0) end; end. Но пока она только умеет только запускать, а инфицировать не можетвторая тоже самое только без вызывающей функции Код: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,ShellAPI, FMX.Edit, FMX.Controls.Presentation, FMX.StdCtrls,ShellAPI; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} end.
×
×
  • Создать...