Зачем мне Sleep когда есть TTimer только всё равно работает программа неправильно ну как я и говорил через раз ! Блин неужто чтобы вызвать соединение по умолчанию программно другого выхода нет ?
У вас товарищ код очень кривой, но тем не менее код Code: procedure TForm1.Button1Click(Sender: TObject); var s: PChar; h: HWND; begin ShellExecuteA(0,'open','rasphone.exe',nil,nil, 0); h:=0; while h=0 do begin h := FindWindow('#32770','Ñåòåâûå ïîäêëþ÷åíèÿ'); application.ProcessMessages; end; SendMessage(h, WM_SYSCOMMAND, SC_HOTKEY, h); keybd_event(VK_Return, 0, 0, 0); keybd_event(VK_Return, 0, KeyEventF_KeyUp, 0); Sleep(100); keybd_event(VK_Return, 0, 0, 0); keybd_event(VK_Return, 0, KeyEventF_KeyUp, 0); ShowWindow(h,0); end; end. у меня сработал 20 из 20 раз.
Для Huligan1 Попробуйте пожалуйста так: PHP: uses shellapi; ... ... // Коннект procedure TForm1.Button1Click(Sender: TObject); var cmd, par, fil, dir: PChar; begin cmd := 'open'; fil := 'rasdial.exe'; par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text); dir := 'C:'; ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE); end; ... ... // Дисконнект procedure TForm1.Button2Click(Sender: TObject); var cmd, par, fil, dir: PChar; begin cmd := 'open'; fil := 'rasdial.exe'; par := PChar(edtEntry.Text + ' /DISCONNECT'); dir := 'C:'; ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE); end;
Имеется вопрос по работе с потоками, функция BeginThread. Повторюсь, именно BeginThread, а не класс TThread. Нужно организовать цикл, который будет создавать n потоков и будет выполнять функцию с теми или иными параметрами. Через TThread это выглядит вот так : Code: ... var a:array[1..250000] of TNewThread; begin ... for i:=1 to thr do begin for j:=0 to source.Count -1 do begin a[i]:=TNewThread.Create(true); a[i].FreeOnTerminate:=true; a[i].Priority:=tpLOWEst; a[i].LoginTH:=copyLogin(Source.Strings[j]); a[i].passTH:=copyPass(Source.Strings[j]); a[i].Resume; application.ProcessMessages; if Application.Terminated then break; if stop then break; end; ... end; ... Требуется это переделать под BeginThread(). И вопрос по той же теме : как после этого по нажатии на кнопку завершить все потоки, используя endthread() ?
Flame of Soul это слишком мудрённо но всё равно спасибо ! s0l_ir0n Огромное тебе спасибо просто незнал что можно найти окно по названию в проводнике !=)
рега нужна помощь в общем во время запуска программы чтобы выходило окошко с вводом имени и пароля, логин и пароль должен храниться в проге в виде текстовика и если он совпадает то можно продолжить работу, если нет то автоматический выход заранее спс
Как в делфи можно проверить существует ли файл по адрессу URL или нет? Нужно для проверки обновлений программы. При открытии приложения, происходит проверка существования "http://site.ru/new1.rar", если существует, то вывести сообщение со ссылкой, если нет, то ничего не делать и продолжить работу приложения.
Данная функция позволяет Вам проверить существование определённого адреса(URL) в интернете. URL может быть как с префиксом http:// так и без него - эта функция добавляет префикс http:// если он отсутствует (необходимо для функции internetOpenUrl которая так же поддерживает FTP:// и gopher:// Эта функция проверяет только два возвращаемых кода '200'(ОК) или '302' (Редирект), но Вы можете заставить проверять функцию и другие коды. Для этого достаточно модифицировать строчку "result := ". PHP: uses wininet; function CheckUrl(url: string): boolean; var hSession, hfile, hRequest: hInternet; dwindex, dwcodelen: dword; dwcode: array [1..20] of char; res: pchar; begin if pos('http://', lowercase(url)) = 0 then url := 'http://'+url; Result := false; hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if assigned(hsession) then begin hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0); dwIndex := 0; dwCodeLen := 10; HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex); res := pchar(@dwcode); result := (res = '200') or (res = '302'); if assigned(hfile) then InternetCloseHandle(hfile); InternetCloseHandle(hsession); end; end;
ViP-K1LLeR Code: var str1,str2,res:string; i1,i2:integer; add:boolean; begin str1:='123456543'; str2:='1234567890'; res:=''; for i2:=1 to length(str2) do begin add:=true; for i1:=1 to length(str1) do if str2[i2]=str1[i1] then add:=false; if add then res:=res+str2[i2]; end; writeln(res); readln; end.
Code: program case_ ; uses crt; type Coms=(hi,go); var a:Coms; b:byte; BEGIN clrscr; readln(); { Как ввести строку на проверку } { readln(b); case b of 1: writeln('Welcome'); 2: writeln('Look out'); 3: writeln('he-he'); 4: writeln('Bye'); else writeln('Not here'); end; } case a of hi: writeln('Welcome'); go: writeln('Look out'); else writeln('Error'); end; readln; END. Числом вводить все понятно как сделать чтоб оператор case выдавал варианты из введеного слово ?
Case со словами не работает, if-ками решай ) можно поизвращаццо с array [0..N] of string, в цикле for искать значение = введенному и передавать ИД case-у , но это реально изврат )
народ помогите решить 3 задачи на паскале, писал в соседнем топике но там никто не отвечает уже 3 дня, готов даже заплатить (просто срочно нужно до завтра), вот задачи: 1. Дан текстовый файл с расширением inp, в котором каждая строка содержит последовательность действительных чисел. Выяснить, будут ли последовательности возрастающие. Результат анализа (Да или Нет) записать в выходной файл с расширением out (построчно). 2. В данной действительной квадратной матрице порядка n отсортировать строку, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственен. Во входном файле с расширением mas, в первой строке дан размер матрицы n, а в следующих n строках и n столбцах записаны элементы матрицы. Результат выполнения программы вывести на экран. 3. Создать типизированный файл Task5.txt с возможностью добавления, содержащий сведения о веществах: название вещества (текст(10), его удельный вес (действительное) и проводимость (проводник, полупроводник, изолятор) (текст[13]). Необходимо создать отчет (использовать подпрограммы): a) выписать удельные веса и названия всех полупроводников и вывести на экран с заголовком "Полупроводники"; b) выбрать данные о проводниках с удельным весом не более 10 и вывести на экран после информации о полупроводниках, вставив заголовок "Проводники"; c) вывести все содержимое типизированного файла в текстовый файл Task5.sol. Пример входного файла Task5.txt: Фарфор 2.3 изолятор Железо 7.9 проводник Золото 19.3 проводник Кремний 2.3 полупроводник Железо 7.9 проводник Стекло 2.5 изолятор
подскажите... допустим есть файл (c:\temp\12312.tmp) который занят моей программой... и как нить можно узнать если какой либо другой процес попытается его открыть, изменить, удалить ???
