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

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. JnK

    JnK Elder - Старейшина

    Joined:
    30 Mar 2007
    Messages:
    125
    Likes Received:
    21
    Reputations:
    0
    В этом куске кода кроме той ошибки, я не нашел. Так что проверяй:
    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);
     
  2. iGlass

    iGlass New Member

    Joined:
    14 May 2009
    Messages:
    86
    Likes Received:
    1
    Reputations:
    0
    Всё, впорос исчерпан =) В константе ошибка была.. =))
     
  3. niva622

    niva622 New Member

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

    FeRiuS Member

    Joined:
    26 Feb 2010
    Messages:
    130
    Likes Received:
    49
    Reputations:
    5
    niva622,
    Попробуй запускать с параметрами.
     
  5. niva622

    niva622 New Member

    Joined:
    4 Nov 2008
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    по конкретнее с какими именно есть мысли ?
     
  6. iGlass

    iGlass New Member

    Joined:
    14 May 2009
    Messages:
    86
    Likes Received:
    1
    Reputations:
    0
    Ну например так
    ShellExecute(Handle, 'open', PChar('c:\glob\file.exe -config.ini'),nil,nil,S W_SHOWNORMAL);
     
  7. niva622

    niva622 New Member

    Joined:
    4 Nov 2008
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    не получается вообще не открывается программа... может есть еще варианты, да и еще видимо дело в том что в папке файл не один конфиг + еще 4 файла. Есть вариант создать ярлык и запустить с ярлыка, но это не выход, нужно придумать что бы можно было открывать без ссылки.
     
  8. iGlass

    iGlass New Member

    Joined:
    14 May 2009
    Messages:
    86
    Likes Received:
    1
    Reputations:
    0
    Вот так:
    ShellExecute(Application.Handle,'open','hl.exe','-nomaster -game cstrike',nil,SW_SHOW);

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

    niva622 New Member

    Joined:
    4 Nov 2008
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    неа не получается... ошибка, грит что конфиг не найдет... не пойму в чем дело...
     
  10. iGlass

    iGlass New Member

    Joined:
    14 May 2009
    Messages:
    86
    Likes Received:
    1
    Reputations:
    0
    Что за программа?

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

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

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

    niva622 New Member

    Joined:
    4 Nov 2008
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    Программа globax, ускорить для интернет соединений, последний вариант тоже не работает.
     
  12. niva622

    niva622 New Member

    Joined:
    4 Nov 2008
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    все проблема решилась вот что сделал
    procedure Run(FileName:string);
    var
    Si:_STARTUPINFOA;
    Pi:pROCESS_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;
     
  13. neuron123

    neuron123 New Member

    Joined:
    29 Mar 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Существует ли способ, что бы при нажатии, кнопки на сайте, автоматически авторизовался к примеру акаунт в vk либо на другом сайте(то есть ввод определённого пароля автоматом). Благодарность WMZ.
     
  14. b82a

    b82a Elder - Старейшина

    Joined:
    7 Feb 2010
    Messages:
    150
    Likes Received:
    48
    Reputations:
    25
    На сайте? Тебе точно Delphi/Pascal нужен?
     
  15. GrimmJow

    GrimmJow Elder - Старейшина

    Joined:
    24 Nov 2007
    Messages:
    36
    Likes Received:
    7
    Reputations:
    0
    Какой посоветуете учебник для Delphi 7, желательно на русском языке? А то их сотни, а оптимальный выбрать не могу.
     
  16. SkyLine32

    SkyLine32 Member

    Joined:
    1 Mar 2009
    Messages:
    144
    Likes Received:
    22
    Reputations:
    2
    Это смотря что тебе нужно. Советую эту книгу для новичка самое то
     
  17. GrimmJow

    GrimmJow Elder - Старейшина

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

    "И да поможет мне Бог". Да.
     
    1 person likes this.
  18. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    Да, Кэнту хороший автор, я даже книгу купил с озона. Правда под дельфи 2005.
    А дельфи 7 - унылое гавно мамонта, осваивай сразу дельфи 2009-2010
     
  19. GrimmJow

    GrimmJow Elder - Старейшина

    Joined:
    24 Nov 2007
    Messages:
    36
    Likes Received:
    7
    Reputations:
    0
    Простите за назойливость :rolleyes: , нужно ли изучать Turbo Pascal перед Делфи?
     
  20. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
Thread Status:
Not open for further replies.