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

2 eLWAux:
спасибо, но немного не то.
Нужно так: чел открывает папку, где лежит прога, запускает ее, она берет окно этой самой папки и из него переходит в другую папку... как будто бы он запустил не файл, а кликнул по папке

 

то есть окно это проводник? не лучше ли прописать одной строчкой в файле .js переход на каталог выше?или в бате...

 

м?
winexec(PChar('explorer '+ExtractFilePath(Application.ExeName)), SW_SHOW);

 

2 desTiny: Спасибо Всё красиво, одной строчкой, вообще я до winexec даже и не додумался. Вот только папка в отдельном окне открывается, жаль\

2SaiRus: Это идея. А как такое можно сделать? Пробовал, но что-то не получилось... js, vbs, wsh

 

во входном файле input.txt в первой строке через пробел записано некоторое (возможно,дробное) число в системе счисления от 2 до 16,основание системы счисления,в которой записано это число,и основание системы счисления в которую требуеться перевести число.программа должна создать файл output.txt и записать в него ответ:числопереведенное в нужную систему счисления

 

Как на Delphi получить md5 файла, в таком виде:
280c7a8c3301f2d12b75e8cb57ac0440

 

в другом формате мд5 файла ты и не получишь

md5 строки:
http://www.delphisources.ru/pages/faq/base/md5.html
http://delphi.od.ua/article/a-50.html
http://delphi.about.com/od/objectpascalide/a/delphi-md5-hash.htm
http://www.slavssoft.ru/articles/?page=md5

md5 файла:
http://www.cyberforum.ru/post104544.html
или http://articles.org.ru/cn/showdetail.php?cid=7047
# function MD5File(const FileName: string): TMD5Digest;
# function MD5DigestToStr(const Digest: TMD5Digest): string;
юзаеш:

Code:

hash := MD5DigestToStr( MD5File( 'file.nana' ) );

 

Code:

hash := MD5DigestToStr( MD5File( 'file.nana' ) );

Спасибо, то, что и нужно было.

 

Нужно открыть txt фаил с сервера адрес примерно http://host/name.txt

И эту функу засунуть вместо функи открыть фаил с диска. исходник: http://www.rapidshare.ru/982142

 

Вот, почитай http://forum.antichat.ru/showthread.php?t=101967

 

ну одно окно можно найти по FindWindow, узнать его положение, закрыть и переместить новое на место старого

 

Конкретно для твоего случая для вызова "Мой компьютер" параметры функции будут иметь вид:
ShellExecute(Handle, 'open', PChar(GetSpecialPath(CSIDL_DRIVES)), nil, nil,sw_show).
Не забудь только подключить модуль ShellAPI в секции Uses.

P.S. И вообще, зная константы пространства имен можно открыть все что угодно!
Список констант можно найти здесь http://www.firststeps.ru/mfc/detail/r.php?48

 

Стоит попробовать заменить TFileStream на TMemoryStream и загружать методом loadFromFile вроде! Да кроме того кажется там есть флаг при открытии - fmRead!

 

попробуй так

infs := tfilestream.create( edit1.text, fmopenread, fmsharecompat );

вроде должно получится...
хотя может другая прога просто закрыла доступ к файлам. в принципе)))

 

Хелп, как определить системный каталог windows?

 

Для этого необходимо использовать API-функцию:

GetSystemDirectory(Buffer: PChar; Size: Word);

Параметры
Buffer: Пpинимающий буфеp.
Size: Размеp буфеpа (не менее 144 символов).

 

SelectDirectory, rxLib: TDirectoryEdit -вывод диалога выбора каталога
GetWindowsDirectory -каталог Windows

FillChar(PathArray,SizeOf(PathArray),#0);
GetWindowsDirectory(PathArray,255);
WindowsDirLabel.Caption:=Format('%s',[PathArray]);

Вместо WindowsDirLabel.Caption введешь то, куда тебе нужно написать путь к системному каталогу

 

спс

 

как сделать в паскале вопросы...
через текстовый документ?
т.е я хочу сделать так=>
в блокноте записать:
вопрос
1)вариант ответа
2)вариант ответа
3)вариант ответа

первый-верный!

нужно сделать так что бы он (верный ответ) на экран не выводился...
надеюсь поняли...

 

Я тебя плохо понля, ты имеешь ввиду файл типа:
-------------------------
Вопрос
Вариант 1
вариант 2
вариант 3
Номер правильного ответа
-------------------------
?
Ты хочешь что ли сделать вывод вопросов с 3 вариантами ответа? я правильно понял ?