[ 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. DimkO

    DimkO Banned

    Joined:
    16 Nov 2008
    Messages:
    28
    Likes Received:
    3
    Reputations:
    0
    не судите за,может быть,сильно легкий вопрос,но можно ли как то в делфи привязатся к командам из cmd?например выкл комп?
     
  2. WVBR

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

    Joined:
    14 Feb 2008
    Messages:
    45
    Likes Received:
    17
    Reputations:
    0
    DimkO, ShellExecute из модуля ShellApi

    ShellExecute(Handle, 'open', 'cmd.exe', 'shutdown -s', nil, SW_SHOWNORMAL);
     
    #4322 WVBR, 7 Oct 2009
    Last edited: 7 Oct 2009
  3. =Zeus=

    =Zeus= Member

    Joined:
    10 Aug 2009
    Messages:
    213
    Likes Received:
    54
    Reputations:
    5
    HKEY_CLASSES_ROOT\Directory
    Там создай папку shell
    В той папке папку с именем которое хочешь чтоб было в меню.
    Например
    Code:
    HKEY_CLASSES_ROOT\Directory\shell\ОЛОЛО!!!
    П.С В гугле этого полно.
     
    1 person likes this.
  4. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    Пример регистрирует расширение файла(.myext) - файлы этого типа будут открываться
    приложением MyApp.Exe. Также регистрируется одно действие (action) по умолчанию
    для файлов этого типа и два дополнительных пункта контекстного меню, связанного с
    этим типом файлов.
    Code:
    uses
        Registry;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
        R : TRegIniFile;
    begin
        R := TRegIniFile.Create('');
        with R do
            begin
                RootKey := HKEY_CLASSES_ROOT;
                WriteString('.myext','','MyExt');
                WriteString('MyExt','','Some description of MyExt files');
                WriteString('MyExt\DefaultIcon','','C:\MyApp.Exe,0');
                WriteString('MyExt\Shell','','This_Is_Our_Default_Action');
                WriteString('MyExt\Shell\First_Action',
                            '','This is our first action');
                WriteString('MyExt\Shell\First_Action\command','',
                            'C:\MyApp.Exe /LotsOfParamaters %1');
                WriteString('MyExt\Shell\This_Is_Our_Default_Action','',
                            'This is our default action');
                WriteString('MyExt\Shell\This_Is_Our_Default_Action\command',
                            '','C:\MyApp.Exe %1');
                WriteString('MyExt\Shell\Second_Action',
                            '','This is our second action');
                WriteString('MyExt\Shell\Second_Action\command',
                            '','C:\MyApp.Exe /TonsOfParameters %1');
                Free;
            end;
    end;
     
  5. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    Ап :)
     
  6. SuX

    SuX New Member

    Joined:
    10 Oct 2006
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Можно ли сделать простым кодом Delphi, программы hitprom ?

    p.p. hitprom написана на Delphi!
     
    #4326 SuX, 8 Oct 2009
    Last edited: 8 Oct 2009
  7. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    если нужно качать целеком файл, то не нужно ничего придумывать UrlDownloadToFile есть.
    Если хотите изврата, то берете любой исходник для посылки HTTP запроса и приема данных. Тут их пару десятков есть.
    ТОлько данные приминаете и сразу кидаете в файла.

    насчет по частям - это зависит от того поддерживает это сервак или нет.
    Но всё это реализуется ввиде определенного поля в HTTP заголовке (Range)
     
  8. /Boom\

    /Boom\ Elder - Старейшина

    Joined:
    14 Feb 2008
    Messages:
    19
    Likes Received:
    2
    Reputations:
    0
    У меня компоненты лежат на первой форме, сделал вторую форму написал код с компонентами первой теперь ругается.Что делать как привезать формы друг другу?
     
  9. Dosia

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    Unit Unit2; //Форма которая использует компоненты первой формы

    ...

    implementation

    uses Unit1; //Форма с компонентами

    Пример:
    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    end.
    Code:
    unit Unit2;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
    
    type
      TForm2 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form2: TForm2;
    
    implementation
    
    uses Unit1;
    
    {$R *.dfm}
    
    procedure TForm2.FormCreate(Sender: TObject);
    begin
    form1.edit1.text :='simple example';
    end;
    
    end.
    Форма 2 при загрузке установит значение свойства text компонента edit1 в 'simple example'.
     
    #4329 Dosia, 8 Oct 2009
    Last edited: 8 Oct 2009
  10. /Boom\

    /Boom\ Elder - Старейшина

    Joined:
    14 Feb 2008
    Messages:
    19
    Likes Received:
    2
    Reputations:
    0
    Сделал поиск по БД.
    Вот код:
    В общем мне надо сделать Поиск по номерму телелефона или фамилии.Так сказать телефонный справочник.Этот код просто указывает на найденную фамилию,как сделать чтоб результаты поиска выводились в другой BDgird и не только один вариант а несколько.Допустим Петров Ваня, Пестров Гоша ...
     
  11. [Abbath]

    [Abbath] Member

    Joined:
    1 Oct 2009
    Messages:
    43
    Likes Received:
    19
    Reputations:
    5
    Наконец дошли руки задать вопрос 2 дня искал на него ответ но так и не нашет ,
    знаю sin3v раньше на сайте своем писал как это делать но его сайт прикрыли.
    ну так к вопросу:
    сделал фейк на делфи рейтинга приходят на асю логи и пассы вот хочю его в билдер запихать а как это сделать незнаю вот прошу описать этот процесс либо хотьт сылку дать на инфу заранее спс!
     
  12. PIRAMIDHEAD

    PIRAMIDHEAD Banned

    Joined:
    1 Aug 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Не давно начал заниматься дэлфи7 и воот уже появился жезненно важный вопрос, как сохранить написанную мной программу на ПК, тобиш запускаемую по двойному клику!!
    ps. не судите строго я новечек в этом деле
     
  13. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    Сохраняешь проект то есть File--->Save Project as (сверху вкладки над вкладками компонентов), как сохранил запускай программу, как запустил она скомпилировалась и доступна по тому месту где ты сохранил проект! (имя файла будет Project.exe) :)
     
  14. PIRAMIDHEAD

    PIRAMIDHEAD Banned

    Joined:
    1 Aug 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    нее не, ты не понял... я иммею ввиду сохранение программы, а не проекта!
    т.е выполненный мною проект я хочу превратить в уже рабочию пусть и первую программку, которая запускается по двойному клику с расширением .exe
     
  15. astonilya

    astonilya New Member

    Joined:
    10 Sep 2009
    Messages:
    12
    Likes Received:
    1
    Reputations:
    0
    нажми на значёк выполнения программы, и она сохранится вто же папке, где и исходники
     
  16. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    Я так и понял! Проделай мои действия и ты приятно удивишся!
     
  17. [Abbath]

    [Abbath] Member

    Joined:
    1 Oct 2009
    Messages:
    43
    Likes Received:
    19
    Reputations:
    5
    ОТВЕТТЕ ПЛЗ мне оч срочно надо !!!
    Наконец дошли руки задать вопрос 2 дня искал на него ответ но так и не нашет ,
    знаю sin3v раньше на сайте своем писал как это делать но его сайт прикрыли.
    ну так к вопросу:
    сделал фейк на делфи рейтинга приходят на асю логи и пассы вот хочю его в билдер запихать а как это сделать незнаю вот прошу описать этот процесс либо хотьт сылку дать на инфу заранее спс!
     
  18. akahaos

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

    Joined:
    5 May 2008
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    т.е. тебе надо написать билдер на делфе?
    вот почитай мож пожет:
    http://forum.0day.kiev.ua/index.php?showtopic=118246&mode=threaded&pid=1404241
     
  19. [Abbath]

    [Abbath] Member

    Joined:
    1 Oct 2009
    Messages:
    43
    Likes Received:
    19
    Reputations:
    5
    спс канеш но нес овсем там в Winhex описано как изменить текст а вот ф-ию отправки изменить там неописано не капли народ кто может помочь ?? с меня ++++!!!!
     
  20. Nizhegorodets

    Nizhegorodets Member

    Joined:
    21 Mar 2009
    Messages:
    80
    Likes Received:
    66
    Reputations:
    9
    в паскале извлекаю квадратный корень из числа опертатором sqrt
    вот что получается
    sqrt(4)=2.0000000000000E+00
    sqrt(100)=1.00000000000000+01

    но ведь квадратный корень из 100 не 1 , а 10...
    как сделать так ,чтобы паскаль делил как обычный калькулятор, те. выделял целую часть???
    ----------------------------------------
    о все сам нашел
     
    #4340 Nizhegorodets, 9 Oct 2009
    Last edited: 9 Oct 2009
Thread Status:
Not open for further replies.