ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
28.03.2009, 13:48
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от gLuk!
Хелп, как определить системный каталог windows?
SelectDirectory, rxLib: TDirectoryEdit -вывод диалога выбора каталога
GetWindowsDirectory -каталог Windows
FillChar(PathArray,SizeOf(PathArray),#0);
GetWindowsDirectory(PathArray,255);
WindowsDirLabel.Caption:=Format('%s',[PathArray]);
Вместо WindowsDirLabel.Caption введешь то, куда тебе нужно написать путь к системному каталогу
Последний раз редактировалось KaZ@NoVa; 28.03.2009 в 15:27..
|
|
|
28.03.2009, 14:30
|
|
Познающий
Регистрация: 28.03.2009
Сообщений: 30
Провел на форуме:
453605
Репутация:
1
|
|
спс
|
|
|
|
28.03.2009, 16:56
|
|
Познающий
Регистрация: 21.03.2009
Сообщений: 32
Провел на форуме:
339263
Репутация:
1
|
|
как сделать в паскале вопросы...
через текстовый документ?
т.е я хочу сделать так=>
в блокноте записать:
вопрос
1)вариант ответа
2)вариант ответа
3)вариант ответа
первый-верный!
нужно сделать так что бы он (верный ответ) на экран не выводился...
надеюсь поняли...
|
|
|
|
28.03.2009, 17:35
|
|
Познающий
Регистрация: 28.03.2009
Сообщений: 30
Провел на форуме:
453605
Репутация:
1
|
|
Я тебя плохо понля, ты имеешь ввиду файл типа:
-------------------------
Вопрос
Вариант 1
вариант 2
вариант 3
Номер правильного ответа
-------------------------
?
Ты хочешь что ли сделать вывод вопросов с 3 вариантами ответа? я правильно понял ?
|
|
|
|
28.03.2009, 18:55
|
|
Познающий
Регистрация: 29.06.2008
Сообщений: 32
Провел на форуме:
22365
Репутация:
24
|
|
WiPztin
Я помню давненько писал приблизительную программку.Лови архив в нем исходники этой программы.Думаю разберешься,ничего сложного нет и если нужно допишешь по своему желанию.
_http://www.rapidshare.ru/984832
|
|
|
|
28.03.2009, 22:01
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от WiPztin
как сделать в паскале вопросы...
через текстовый документ?
т.е я хочу сделать так=>
в блокноте записать:
вопрос
1)вариант ответа
2)вариант ответа
3)вариант ответа
первый-верный!
нужно сделать так что бы он (верный ответ) на экран не выводился...
надеюсь поняли...
то есть в условии сказано что первый верный заведомо?
и нумерация именно 1) 2) 3)
Если Да!!!
тогда можно считывать строку пока не конец файла
примерно
Код HTML:
while not(eof(f)) do begin
readln(s);
if s[1] <> 1 then p[i]=s;
i:=i+1;
end;
где f - файл
s - строка
i - целое
p - array[1...d] of string;
всю прогу не пишу, но суть такая)
Последний раз редактировалось KaZ@NoVa; 28.03.2009 в 22:04..
|
|
|
|
28.03.2009, 19:34
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Народ подскажите где в коде ошибка...
Код:
program lol;
{$APPTYPE CONSOLE}
uses windows, winsock,sysutils,MPlayer;
var
Media:TmediaPlayer;
BEGIN
with media do begin
filename := 'C:\system.wav';
open;
wait := false;
startrecording;
end;
END.
Вот небольшой консольный код, компилируется нормально, файл C:\system.wav существует, однако при запуске через CMD.exe вылетает с ошибкой:
Exception EAccessViolation in module lol.exe at 00047790.
Access violation at address 00447790 in module 'lol.exe'. Read of address 000
00094.
Если этот же кусок кода юзать в простом неконсольном приложении то никаких проблемм...
Подскажите плз где тут ошибка... |
|
|
|
28.03.2009, 20:07
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Nightmarе//Модуль к чему подключен?
media не создано, нужно его создать
Код HTML:
[src delphi]program lol;
{$APPTYPE CONSOLE}
uses
SysUtils, MPlayer;
var
Media: TMediaPlayer;
BEGIN
Media := TMediaPlayer.Create(nil);
try
Media.Filename := 'C:\system.wav';
Media.Open;
Media.Wait := False;
Media.StartRecording;
finally
Media.Free;
end;
END.[/src]
Последний раз редактировалось KaZ@NoVa; 29.03.2009 в 10:52..
|
|
|
|
29.03.2009, 13:55
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от KaZ@NoVa
Nightmarе//Модуль к чему подключен?
media не создано, нужно его создать
ПРо несозданное медио я ещё вчера понял.
Теперь он мне ябёт мозги с десктиптором формы... 
|
|
|
|
30.03.2009, 10:31
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от Nightmarе
Теперь он мне ябёт мозги с десктиптором формы... Текст ошибки в студию. Код тоже
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид