|
SHell Api open file - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
02.09.2012, 23:22
|
#1
|
|
|
|
Разведчик
|
Регистрация: 21.08.2012
Сообщений: 19
Популярность: -310
Сказал(а) спасибо: 14
Поблагодарили 6 раз(а) в 5 сообщениях
|
SHell Api open file
я знаю команду как открыть файл с помощью шел апи.
Так вот примерный код :
(кодкодкод,ПУТЬ К ФАЙЛУ,кодкодкод)
Так вот, когда я вписываю адрес к файлу вручную, то всё збс.
А вот когда Я туда помещаю Стринг, то выдаёт в том месте
Так же, помогите, я вот не помню как называется тот элемент
Типо таблица, кто может скиньте пожалуйста как ей пользоваться и её называние.
+ ПОЖАЛУЙСТА помогите
как сканировать 2 вертикальных столбика этой таблицы (бесконечно вниз, т.е. сколько их всего) только 2е первых.
|
|
|
03.09.2012, 00:10
|
#2
|
|
|
|
Старший сержант
|
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
|
Re: SHell Api open file
|
|
|
Пользователь сказал cпасибо:
|
|
03.09.2012, 00:11
|
#3
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: SHell Api open file
А теперь тоже, только после полного выхода алкоголя с организма.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
Пользователь сказал cпасибо:
|
|
03.09.2012, 07:39
|
#4
|
|
|
|
Пехотинец
|
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
|
Re: SHell Api open file
|
|
|
03.09.2012, 14:25
|
#5
|
|
|
|
Разведчик
|
Регистрация: 07.04.2012
Сообщений: 5
Популярность: 170
Сказал(а) спасибо: 0
Поблагодарили 8 раз(а) в 6 сообщениях
|
Re: SHell Api open file
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (ComboBox1.Text='Old') or (Label1.Caption='1') then
ini.WriteString('UI', 'Theme', ' 0')
else
if (ComboBox1.Text='Genesis') or (Label1.Caption='0') then
ini.WriteString('UI', 'Theme', ' 1')
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ini.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ini:=TiniFile.Create(Edit1.Text + '\element\userdata\SystemSettings.ini');
Label1.Caption:= ini.ReadString('UI', 'Theme', 'Íå íàéäåíî');
if (Label1.Caption='1') then
Label1.Caption:='Genesis'
else
if (Label1.Caption='0') then
Label1.Caption:='Old'
end;
procedure TForm1.Button3Click(Sender: TObject);
var
fileName : string;
myFile : TextFile;
data : string;
begin
if FileExists(Edit1.Text + '\element\userdata\SystemSettings.ini')
then
Button1.Enabled:=true
else
MessageBox(Application.Handle,'Файл по данному пути не найден','Ошибка', MB_OK);
end;
procedure TForm1.Button5Click(Sender: TObject);
var
Dir: string;
begin
if SelectDirectory('Выберите каталог', '\', Dir)
then Edit1.Text:=(Dir);
end;
Держи, может что понадобится.
|
|
|
03.09.2012, 16:23
|
#6
|
|
|
|
Разведчик
|
Регистрация: 21.08.2012
Сообщений: 19
Популярность: -310
Сказал(а) спасибо: 14
Поблагодарили 6 раз(а) в 5 сообщениях
|
Re: SHell Api open file
Большое спасибо! Блин я не знаю что было вчера. Тупил ппц, спасибо всем)
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Помогите!] OPEN GL
|
Роспотребнадзор |
Вопросы и ответы, обсуждения |
1 |
11.08.2011 11:28 |
Shell:)
|
Wenerol |
Общение и обсуждение, архив Lineage 2 |
6 |
28.01.2011 18:11 |
[Файл] Open Web rev 18
|
sex0s |
Web для Lineage 2 |
0 |
20.01.2011 11:25 |
New Shell
|
Razzor |
Подполье Lineage 2 (0 уровень) |
5 |
22.04.2010 15:36 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 03:19.
|
|