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

Djezul, вирусописание (если то, что ты собрался делать, можно так назвать) тут не приветствуется. К тому же, юзай поиск. Тема заезженная донельзя уже. Инфы просто море.
http://argon.com.ru/windows/winxp/xpautorun
http://www.codenet.ru/progr/delphi/stat/registry.php
http://bugtraq.ru/library/programming/invisible.html
http://forum.sources.ru/index.php?showtopic=201846&st=0&#entry1687194

 

Спасибо, да не я вообще не собираюсь заниматься виросописанием , да и делфи я не знаю , это просто другу надо , он увлекается, а инета у него нет только сеть, вот я ему и помогаю Мне больше подуше Web программирование

 

На счет чтобы в процессах не винда была - юзать 5005 статей по делфи. там есть некотоыре вишки связанные с этим.
Добавление в авторан - поищи на форуме тут. Был код и на асме и на дельфе.

 

Djezul Вот пример реализации через Хуки и dll http://hacker.3dn.ru/publ/7-1-0-31
Сам использую

 

if (SearchRec.Attr = faHidden) then
Memo1.Lines.Add('[h]' + SearchRec.Name + '[/h]');

 

Помогите решить пожалуйста. Задача олимпиадная, но рабочего решения найти не могу(

 

Привет всем.
Скажите пожалуйста...
как определить Handle активного окна.
Нужно чтобы по таймеру велся лог программы с которой сейчас работает пользователь.

 

Получить Handle и имя класса окна под мышкой

Code:

type 
  TForm1 = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Timer1: TTimer; 
    procedure Timer1Timer(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    procedure ShowHwndAndClassName(CrPos: TPoint); 
  public 

end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  rPos: TPoint; 
begin 
  if Boolean(GetCursorPos(rPos)) then ShowHwndAndClassName(rPos); 
end; 

procedure TForm1.ShowHwndAndClassName(CrPos: TPoint); 
var 
  hWnd: THandle; 
  aName: array [0..255] of Char; 
begin 
  hWnd := WindowFromPoint(CrPos); 
  Label1.Caption := 'Handle :  ' + IntToStr(hWnd); 

  if Boolean(GetClassName(hWnd, aName, 256)) then 
    Label2.Caption := 'ClassName :  ' + string(aName) 
  else 
    Label2.Caption := 'ClassName :  not found'; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Form1.FormStyle := fsStayOnTop; 
  Timer1.Interval := 50; 
end;

 

а можно чтобы вместо вместо handle текущего класса...возвращала handle программы которой он принадлежит

 

Какие существуют методы для позиционирования на N-й записи таблицы.

 

никто не знает?

 

Вопрос не совсем понятен. Какое позиционирование?

 

ну тоесть перехода к N-ой записи..

 

В TStringGrid что ли? Если да, то вот способ

Code:

 type
   TGridCracker = class(TStringGrid);

    {...}

 implementation

 {...}

 procedure SetCaretPosition(Grid: TStringGrid; col, row, x_pos: Integer);
 begin
   Grid.Col := Col;
   Grid.Row := Row;
   with TGridCracker(Grid) do
     InplaceEditor.SelStart := x_pos;
 end;

 // Получаем позицию каретки
function GetCaretPosition(Grid: TStringGrid): Integer;
 begin
   with TGridCracker(Grid) do
     Result := InplaceEditor.SelStart;
 end;

 // Например

// Фокусируем на колонку 1, ряд 3 и позиция каретки 5

procedure TForm1.Button1Click(Sender: TObject);
 begin
   StringGrid1.SetFocus;
   SetCaretPosition(StringGrid1, 1, 3, 5);
 end;

 

Здравствуйте
Проблема при сохранении файла
Процедура:

PHP:

procedure TForm1.Save1Click(Sender: TObject);
begin
if saveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;


Фильтр:

PHP:

bat|*.bat|sys|*.sys|htm|*.htm|php|*.php|sql|*.sql

Но почему то при сохранении расширение не прописывается
Помогите найти ошибку

 

Попробуй так, если сработает, то просто подставляй что надо.

Code:

procedure TForm1.Save1Click(Sender: TObject);
begin
if saveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName[COLOR=Green]+'.sql'[/COLOR]);
end;

 

мне нужны разные варианы.Такой же фильтр при открытии файла,работает,а этот нет

 

посоветуйте хорошую книгу по паскалю?

 

Тебе для чего? Писать проги - врядли паскаль хорош для этого, а если изучение алгоритмов, то другой вопрос.

 

Здравствуйте, очень нужно решить эту задачку... очень прошу, кто сможет... нужно составить прогу не важно на каком...

Например:

Нужно найти всевозможные комбинации от 1 до 40 состоящиe из 8 чисел... например приведу несколько вариантов комбинаций: 1.2.3.4.5.6.7.8 ; 1.2.3.4.5.6.7.9 ; 1.2.3.4.5.6.7.39 ; 1.2.3.4.5.6.24.40 ; 2.7.9.16.23.25.33.37.

Ну и чтоб можно было вводить(изменять) эти значения(т.е. значения 40 и 8).

Буду очень благодарен...
Отблагодарю репутацией.
Спасибо за внимание.