[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Ты получается хочешь инжектиться в hl.exe, проще говоря в халяву, не объясняешь толком что именно нужно и требуешь результата.

Опиши все, что необходимо получить в результате твоих действий, что ты реализуешь, и как оно должно работать, или читай про перехват API.

 

+W!z@rD

Еще вот простенький модуль (без асм вставок) для щифрования исполняемых файлов:

Скачать (Crypting)

Пользоваться так, к примеру:

Code:

var
procedure TForm1.Button1Click(Sender: TObject);
var
 key:TWordTriple;
begin
key[0]:=1; key[1]:=2; key[2]:=3;
FileEncrypt('C:\123.exe','C:\new123.exe',key);

{FileDecrypt('C:\new123.exe','C:\new123.exe',key,true);}
end;

 

Стояла у меня одна ОС:
смена языка (русский/английский) производилась нажатием shift & alt.
в Паскале 7.0 нужно было нажимать shift & ctrl.

Сейчас стоит таже ОС (более новая):
смена языка производится нажатием shift & ctrl (изначально в системе так).
но в Паскале НИКАК не могу изменить язык.

Подскажите, какими ЕЩЕ клавишами (мне срочно нужно комментарии в программах писать по русски) можно изменять язык в Паскале. Что только не нажимал.

 

Попробуй и в этой ОС поменять сочетание на shift & alt

Либо копипасти в текстовик и там добавляй коменты ))

 

А мне с модулем поможете?

 

hoty, у меня тоже такое было, когда стояла Windows XP SP1, всё менялось, когда поставил SP2 - перестало, задал вопрос преподу, он сказал что так и должно быть, то есть на СП2 в паскале язык не меняется.

 

на просто что бы *dll загружалась всесте с *exe..
Тоесть запустил екзешник и длл вмести с ним поехал..

 

Еще вопрос. Как при нажатии кнопки сворачивать программу в трей? И возможно ли это вообще?

 

to qPhoenix : менял конечно язык)) не помогает.

to Dr.Bodja :

Только не это. Придется старую ОС ставить((

 

Pascal

Мне задали 2 задачки на Pascal, но как их сделать вообще незнаю.
1.
2.
Каму нетрудно сделайте плиз

 

2hoty, под Windows 98 тоже переключается, найди где-то windows 98 Live CD. Загрузи, напиши коментарии, и всё.

 

2 задание кажись так, а первое я не дописал ещё

Code:

var
 y, x: Real;
begin
y := exp(6*x + ln(3)) + (exp(2*x + ln(4)) - exp(8*x +ln(5)));

 

Не нашел я формул, так примерно как должна состоять

Code:

var
  x1, y1, z1: Integer;
  X, O, Y: Real; 
  P: Real;
...


procedure entercoord(x1,y1,z1: Integer);
begin
  writeln('Vvedite koordinaty x1, y1, z1');
  readln(x1,y1,z1);
end;

procedure CalcVolCyl;

procedure scr;
begin
  clrscr;
  writeln('Vivodim na ekran'); {Типа так}
end;

procedure prnt;
var
  f: Text;
  i: Integer;
begin
  clrscr;
  writeln('Gelaete vyvesti na printer nagmite: <Y> ili <N> else nado vyiti');
  readln(ch);
  if (ch = 'Y) or (ch = 'y') then 
  begin
    assign(f, 'prn');
    rewrite(f);
    write('out on printer');
    close(f);
  end
  else
    for i:=0 to 15 do delay(3000);
    
end;

begin
  {vycheslenie obiema cilindra}
  
end;


begin
  writeln('');
  writeln('');
  writeln('');
  readln(i);
  ...
  {В зависимости от введенного параметры выполняем действие}
end;

 

2 Nightmare

Ну ты же просил по легче=) Вот тебе по сложнее. Шифрование алгоритмом
RC5 (Шифрование потоков). Модуль и пример прилагаются):

www.aladin88.jino-net.ru/RC5.rar

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 m:TStream;
begin
//Key - строковый ключ-пароль
 m:=TFileStream.Create('C:\1.exe',fmOpenWrite);
 if EncryptStream(m,m.Size,'megapassword') then
 showmessage('Successfully encoded');
 m.free;
end;

p.s. Шифрование текста и бинарников производится по разному, так что твоя функция не подойдет
Тебе что ли очень коденфициальные данные шифровать нужно?

2 rankor777

Тебе какие арифю операции нужны? Можно использовать стандартный модуль Math

2 Dr. Bodja

Конечно, иконку можно поместить так.
Сначала подключаешь модуль ShellApi

Code:

//Помещение иконки в Tray Bar
procedure TForm1.Button1Click(Sender: TObject);
var no:TNotifyIconData;
Hicon1:HIcon;
begin
HIcon1:=ExtractIcon(Handle,'C:\icon.ico',0);
with no do begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
SzTip:='Traybar Tip';
HIcon:=HIcon1;
uCallBackMessage:=WM_USER+0;
end;
Shell_NotifyIcon(NIM_ADD,@no);
end; 

//Для того, чтобы удалить иконку 
procedure TForm1.Button2Click(Sender: TObject);
var no:TNotifyIconData;
begin
//Удаление иконки
with no do begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
end;
Shell_NotifyIcon(NIM_Delete,@no);
end; 

 

xaker-boss
1

Code:

var a,b,h,r,v: real;
procedure KoorA(var a,b,h: real);
begin
  write('3 Koordinati tochki A: '); read(a,b,h);
end;
begin
  writeln('Ob"em czilindra');
  write('Vvedite radius: ');
  readln(r);
  KoorA(a,b,h);
  v:=sqr(r)*3.14*h;
  writeln('Ob"em czilindra = ',v);
  readln
end.

 

Смена языка вввода в Pascal 7.0 в ОС с Servise Pack 3 тоже не работает ((

 

0verbreaK, Dober'man Прокатило, спасибо вам большое

 

1

Code:

for i:=0 to Memo1.Lines.Count-1 do
  if not deletefile(Memo1.Lines[i]) then
    Memo2.Lines.Add('НЕ МОГУ УДАЛИТЬ '+Memo1.Lines[i]);

2

Code:

for i:=0 to Memo2.Lines.Count-1 do
    Memo3.Lines.Add(ChangeFileExt(Memo2.Lines[i]),'');

 

Nightmarе

1.

Code:

for i:=0 to Memo1.Lines.Count-1 do
begin
  if not deletefile(Memo1.Lines[i]) then continue; // к следующему файлу
end;

2.

Отрезай с помощью SetLength(), узнавая длину последние символы.

 

1

Code:

for i:=0 to Memo1.Lines.Count-1 do
  if not deletefile(Memo1.Lines[i]) then
    Memo2.Lines.Add('НЕ МОГУ УДАЛИТЬ '+Memo1.Lines[i]);

2

Code:

for i:=0 to Memo2.Lines.Count-1 do
    Memo3.Lines.Add(ChangeFileExt(Memo2.Lines[i]),'');