Спасибо! Не подскажите если я запускаю главную программу(загрузчик) из под Администратора, то когда я запускаю дочерние приложения из него вот так они тоже имеют привилегии администратора? Code: ShellExecute(AutoRunners.Handle,'open', PChar(dirProgramm+'Handy\1.lnk'),nil,nil,SW_Normal); Так же нужна помощь. Задача перейти на вкладку Авто и нажать на Кнопку Запустить Пробую вот так Code: procedure TAutoRunners.btn1Click(Sender: TObject); var Hnd, HndBtn:HWND; begin Hnd:=FindWindow(nil,'FreeTMGameBot 0.1.2.2'); if Hnd <> 0 then ShowMessage('Найдено главное окно') else ShowMessage('Не найдено главное окно'); HndBtn := FindWindowEx(Hnd, 0, 'TabControl', 'Авто'); if HndBtn <> 0 then ShowMessage('Найдено первое дочернее окно') else ShowMessage('Не найдено первое дочернее окно'); //HndBtn:=FindWindowEx(Hnd,0,'Button','Авто'); SendMessage (HndBtn, BM_Click, 0, 0); end; Пишет что дочернее окно не найдено. Хотя судя по исходнику http://www.sendspace.com/file/68ndlm Все идет именно в таком порядке. В чем я ошибся?
Нужно создать массив к значению каждого было прикреплено слово например Code: q:='Привет'; z:='Добрый день'; w:='Hi'; e:='Пока'; x:='До встречи'; r:='bye'; И потом создать процедуру поиска в Мемо Code: i:=0; randomize; for i to(Memo1.Lines.Count-1)do if pos(q or z,memo1.Lines[i])<>0 then q or z:=w; Чтобы процедура проверяла наличие текста на вид слова и заменяло его на другое. Помогите пожалуйста, ато не получается.
Подскажите как сохранить данные в реестр в двоичный параметр. Пробую так. Но записывается другое совсем. В str хочу указывать данные типа hex в этом же виде их сохранять. Code: str := '00 11 22'; reg.WriteBinaryData('CaptionFont', str, sizeof(str));
Code: var reg: TRegistry; S: String; P: Pointer; cdLen: Integer; const data: array[0..5] of Byte = ($00,$11,$22,$33,$44,$55); begin reg:= TRegistry.Create; try reg.RootKey:= HKEY_CURRENT_USER; if reg.OpenKey('Software\MyRoot', True) then begin S:= #$00#$11#$22; P:= @S[1]; cdLen:= Length(S); // если в качестве данных строка: reg.WriteBinaryData('myBinary', S[1], cdLen); // если через указатель на данные, то так: reg.WriteBinaryData('myBinaryPointer', P^, cdLen); P:= @data; cdLen:= sizeof(data); reg.WriteBinaryData('myBinaryData', P^, cdLen); end; finally reg.Free; end; end;
Код потока: PHP: while B = True do begin CS.Enter; CurrLnk := Sl[0]; if SL.Count - 1 = 0 then begin B := False; CS.Leave; CS.Free; Exit; end; SL.Delete(0); CS.Leave; Так Создаю: PHP: procedure TForm1.Button2Click(Sender: TObject); var ArrThrd: Array[1..10] of ParsThrd; i: integer; begin CS := TCriticalSection.Create; for i := 1 to StrToInt(Edit3.Text) do begin ArrThrd[i] := ParsThrd.Create(false); end; end; При запуске к примеру 10 потоков, все 10 в первом проходе цыкла используют одно значение из SL, далее все идет нормально. Что не так? SL - TStringList CurrLnk - String ______ Решил
Выделяешь антикапчу, далее Ctrl+C, Ctrl+V. Все норм вставляется. P. S. http://antigate.com/?action=api
shadowrun, попробуйте так: Code: cs.enter; if sl.count <> 0 then begin currlnk := sl[0]; sl.delete (0); cs.leave; end else begin cs.leave; // если поток последний - freeandnil (cs); exit; end; Если список большой, так: Code: cs.enter; c := sl.count; if c <> 0 then begin currlnk := sl[c - 1]; sl.delete (c - 1); cs.leave; end else begin cs.leave; // если поток последний - freeandnil (cs); exit; end;
accounts, написано же: Описанная проблема могла быть тогда, например, когда CurrLnk была не локальной, а глобальной переменной.
задание. Дан целочисленный массив А размером n. Построить массив В, со держащий элементы массива А, значение которых больше среднего арифмети ческого элементов массива А. Отсортировать массив В по возрастанию. собственно надо только: Построить массив В, со держащий элементы массива А, значение которых больше среднего арифмети ческого элементов массива А остальное понятно... Хелп ми гайс
PHP: const n = 10; var A: Array[1..n] of real; B: Array[1..n] of real; SrArf: Real; i: integer; j: integer = 0; begin Randomize; for i := 1 to n do A[i] := Random(25); for i := 1 to n do SrArf := SrArf + A[i]; SrArf := SrArf / n; for i := 1 to n do if A[i] > SrArf then begin Inc(j); B[j] := A[i]; end; for i := 1 to n do Writeln(A[i]:1:1); Writeln(SrArf:1:1); for i := 1 to j do Writeln(B[i]:1:1); Readln; end.
Как вычислить, счастливый билет или нет? Есть шестизначное число, допустим 123123, как мне проверить, равна ли правая сторона левой, и вывести YES при условии что номер счастливый or NO если обыкновенный.
Как вариант IntToStr, copy. Конвертируем число в строку->копируем 0-2 символ, 3-5 символ, сравниваем.
Запущенный поток управляет цветом Panel1, рандомно меняя его. Нужно что бы при показе определенного цвета сделать запуск секундомера и считать секунды и мили секунды пока не нажмут кнопку. Так вот как создать этот секундомер и как синхронизировать нажатие кнопки с ним.
Здравствуйте, почему код: PHP: var time: TSystemTime; begin Memo1.Lines.Add(IntToStr(Time.wMilliseconds)); Memo1.Lines.Add(IntToStr(Time.wSecond)); end; Выдает: PHP: 73 42775 Даже если я 30 раз нажму на кнопку.
да разобрался уже: PHP: var time: TSystemTime; begin GetSystemTime(time); Memo1.Lines.Add('День-'+IntToStr(time.wDay)); Memo1.Lines.Add('Час-'+IntToStr(time.wHour)); Memo1.Lines.Add('Минуты-'+IntToStr(time.wMinute)); Memo1.Lines.Add('Секунды-'+IntToStr(time.wSecond)); Memo1.Lines.Add('Миллисекунды-'+IntToStr(time.wMilliseconds));
