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

В этом куске кода кроме той ошибки, я не нашел. Так что проверяй:
get(CSIDL_APPDATA) - Вот это от куда и что дает?
tmp:=SRC.Strings[6]; - что тут получается.

В общем делай трассировку кода или проверки (MessageBox). Вот кусок добавил если скажет, что файла нет, значит где то в получении пути дело.

PHP:

...
  fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+  '\'+key3;
  if not FileExists(fullPath) then
    MessageBox(0,PAnsiChar('Путь до файла не существует:' +#13#10+fullPath),'Not File',0);
  CopyFile(PAnsiChar(fullPath),PAnsiChar('C:\key3.db'),false);


 

Всё, впорос исчерпан =) В константе ошибка была.. =))

 

помогите, нужно что бы при нажатии по бутону открываласть программа, пробывал функцию shellexecute но получается ошибка т.к в папке находятся еще и файлы к программе... как можно открыть программу как через проводник, что бы вместе с программой открылись все файлы.. надеюсь объяснил понятно.. спасибо
Пробывал ShellExecute(Handle, 'open', PChar('c:\glob\file.exe'),nil,nil,S W_SHOWNORMAL); не катит, открывает только exe а конфиг который лежит в папке с программой не открывается...

 

niva622,
Попробуй запускать с параметрами.

 

по конкретнее с какими именно есть мысли ?

 

Ну например так
ShellExecute(Handle, 'open', PChar('c:\glob\file.exe -config.ini'),nil,nil,S W_SHOWNORMAL);

 

не получается вообще не открывается программа... может есть еще варианты, да и еще видимо дело в том что в папке файл не один конфиг + еще 4 файла. Есть вариант создать ярлык и запустить с ярлыка, но это не выход, нужно придумать что бы можно было открывать без ссылки.

 

Вот так:
ShellExecute(Application.Handle,'open','hl.exe','-nomaster -game cstrike',nil,SW_SHOW);

Жирным шрифтом параметры идут.. CS открывается на 5...

 

неа не получается... ошибка, грит что конфиг не найдет... не пойму в чем дело...

 

Что за программа?

Вот можно ещё так...

ShellExecute(Application.Handle,'open','NOTEPAD.exe','test.log',nil,SW_SHOW);

Блокнот прекрасно файл загружает... главное чтобы не было "-"...

 

Программа globax, ускорить для интернет соединений, последний вариант тоже не работает.

 

все проблема решилась вот что сделал
procedure Run(FileName:string);
var
Si:_STARTUPINFOA;
PiROCESS_INFORMATION;
s,s2:string;
begin
GetStartupInfo(Si);
s:=ExtractFileDir(FileName);
s2:=FileName;
CreateProcess(nil,PChar(s2),nil,nil,false,0,nil,PChar(s),Si,Pi);
end;

 

Существует ли способ, что бы при нажатии, кнопки на сайте, автоматически авторизовался к примеру акаунт в vk либо на другом сайте(то есть ввод определённого пароля автоматом). Благодарность WMZ.

 

На сайте? Тебе точно Delphi/Pascal нужен?

 

Какой посоветуете учебник для Delphi 7, желательно на русском языке? А то их сотни, а оптимальный выбрать не могу.

 

Это смотря что тебе нужно. Советую эту книгу для новичка самое то

 

Погуглил я на эту тему еще раз. О книгах Фленова просто куча негативных отзывов, поэтому решил остановиться на Marco Cantu "Delphi 7: Для профессионалов". Название книжки конечно пугает (как и количество страниц 1к+) Но, с моим опытом, хотя и крайне незначительным в c++ & php, постараюсь одолеть её.

"И да поможет мне Бог". Да.

 

Да, Кэнту хороший автор, я даже книгу купил с озона. Правда под дельфи 2005.
А дельфи 7 - унылое гавно мамонта, осваивай сразу дельфи 2009-2010

 

Простите за назойливость , нужно ли изучать Turbo Pascal перед Делфи?

 

Нет!