Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=2683909 Tue, 31 Aug 2010 11:27:06 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=2683909 [Error] RLINK32: Error reading file "C:\Program Files\Borland\Delphi7\Projects\W0000\w4бд\exe\rc.rc"
этот длинный каталог точное указание на тот каталог, где хранится весь проект, включая rc.rc
при этом компиляция происходит, файл rc.res создается
не подскажете в чем может быть дело?]]> VitL Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=864037 Thu, 22 Sep 2005 16:25:19 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=864037 nisonov
Попробуй сделать так:
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure AppDeactivate(Sender: TObject);
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.DFM}
     
    procedure TForm1.AppDeactivate(Sender: TObject);
    begin
     SetForegroundWindow(handle);
    end;
     
    procedure TForm1.FormCreate(Sender: TObject);
    begin
     Application.OnDeactivate := AppDeactivate;
    end;
]]> zubr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=863508 Thu, 22 Sep 2005 09:53:28 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=863508 nisonov Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857977 Fri, 16 Sep 2005 06:30:38 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857977 Цитата KirSSS @
procedure TForm1.Button1Click(Sender: TObject);
    var
     ResStream: TResourceStream;
    begin
     ResStream:=TResourceStream.createFromID(hInstance, 1, RT_RCDATA)
     ResStream.SaveToFile('mspaint.exe');
     ResStream.free();
     ShellExecute(Handle, nil, 'mspaint.exe', nil, nil, SW_SHOWNORMAL);
    end;
     
    end.


Делфи показывает ошибку "Missing operator or semicolon" и выделяет
строку "ResStream.SaveToFile('mspaint.exe');"
Что такое?


Строку выше закончи ";":
    var
     ResStream: TResourceStream;
    begin
     ResStream:=TResourceStream.createFromID(hInstance, 1, RT_RCDATA); // вот здесь ее нет
     ResStream.SaveToFile('mspaint.exe');
     ResStream.free();
     ShellExecute(Handle, nil, 'mspaint.exe', nil, nil, SW_SHOWNORMAL);
    end;


Вообще-то :lool:]]> RuSA Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857965 Fri, 16 Sep 2005 06:22:58 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857965 1) Создаю папку temp и кидаю туда mspaint.exe
2) Создаю в паке rc.rc c текстом
Цитата
1 RCDATA "mspaint.exe"

3) Открвыаю Delphi. Shift+F11 -> rc.rс. После Кидаю кнопку на форму и пишу текст.
4) Вот текст Unit1:
        unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ShellAPI, StdCtrls;
     
    type
      TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R rc.rc}
     
    procedure TForm1.Button1Click(Sender: TObject);
    var
     ResStream: TResourceStream;
    begin
     ResStream:=TResourceStream.createFromID(hInstance, 1, RT_RCDATA)
     ResStream.SaveToFile('mspaint.exe');
     ResStream.free();
     ShellExecute(Handle, nil, 'mspaint.exe', nil, nil, SW_SHOWNORMAL);
    end;
     
    end.


Делфи показывает ошибку "Missing operator or semicolon" и выделяет
строку "ResStream.SaveToFile('mspaint.exe');"
Что такое?]]> KirSSS Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857928 Fri, 16 Sep 2005 05:52:46 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857928 Цитата Miscђka @
rc.rc компилится с помощью brcc32.exe

Не надо ничего компилить, достаточно просто подключить *.RC файл к проекту через Shift+F11 и дельфи автоматом при сборке (Build) будет перекомпиливать данный ресурсный файл...]]> Rouse_ Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857904 Fri, 16 Sep 2005 05:19:17 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857904 unit1
    {$R RC.RES}
     
    uses
     ShellAPI;
     
    procedure TForm1.Button1Click(Sender: TObject);
    var
     ResStream: TResourceStream;
    begin
     ResStream:=TResourceStream.createFromID(hInstance, 2, RT_RCDATA);
     ResStream.saveToFile('MyCalc.exe');
     ResStream.free();
     ResStream:=TResourceStream.createFromID(hInstance, 1, RT_RCDATA);
     ResStream.saveToFile('MyNotepad.exe');
     ResStream.free();
     ShellExecute(Handle, nil, 'MyCalc.exe', nil, nil, SW_SHOWNORMAL);
     ShellExecute(Handle, nil, 'MyNotepad.exe', nil, nil, SW_SHOWNORMAL)
    end;


rc.rc
    1 RCDATA "notepad.exe"
    2 RCDATA "calc.exe"


rc.rc компилится с помощью brcc32.exe]]> Miscђka Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857901 Fri, 16 Sep 2005 05:14:38 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857901 KirSSS Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857634 Thu, 15 Sep 2005 16:12:20 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857634 Цитата Guest @
Админы!!! Банте новичка хаккера!!! скорееееее....

А за что? Человек - новичок, ему нужно помочь.
Значит так. EXE-файл можно запихать через RCDATA с помощью практически любого редактора ресурсов (могу посоветовать для этого Resource Workshop). Потом можно обращаться к нему по имени (поищи по WinSDK справке)]]> OSokin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857507 Thu, 15 Sep 2005 14:16:48 +0000 Запуск EXE из выполняемого файла... https://forum.sources.ru/index.php?showtopic=114763&view=findpost&p=857507 KirSSS Delphi: Общие вопросы