Запуск программы из EXE-шника

[EPaul]

Не так давно в инете находил исходник программы, кажется реализующей ping, на компонентах ICS. Но может я ошибаюсь. Но дело не в этом. А главное, в исходнике программы в двоичном виде, столбиками была набита другая программа, которая вызывалась запускающей программой из самой себя, и выполняла все работу. К сожалению, этот исходник я потерял. Может кто знает, о какой проге я говорю, и даст ссылку на нее. Очень нужно. Благодарю.

[EPaul]

Кажется нашел решение.

[Человек_Борща]

delphisources.ru я там видел пару исходников о том как вшить в exe код чтобы при запуске звучал beep. Ну или протектор чтобы при запуске exe выводилась окно ввода пароля, пароль верен - игрыйся. Пароль не верен - программа закрывается.

[EPaul]

Кому интересно вот нашел на Delphi World

procedure FileToPas(FileName: string);
var
  BF: file of Byte;
  F: TextFile;
  P, N, S: string;
  BFSize: integer;
  BBB: Byte;
begin
  AssignFile(BF, FileName);
  Reset(BF);
  BFSize := FileSize(BF);
  P := ExtractFilePath(FileName);
  N := ExtractFileName(FileName);
  N := ChangeFileExt(N, '.PAS');
  AssignFile(F, N);
  ReWrite(F);
  Writeln(F, '(* Generated by Master BRAIN (C) 2002 *)');
  Writeln(F, 'unit ' + ChangeFileExt(N, '') + ';');
  Writeln(F);
  Writeln(F, 'interface');
  Writeln(F);
  Writeln(F, 'const FileSize:integer=' + IntToStr(BFSize) + ';');
  Writeln(F, 'FileData:array[0..' + IntToStr(BFSize - 1) + '] of Byte=');
  Writeln(F, '(');
  while not Eof(BF) do
  begin
    S := '';
    while (not Eof(BF)) and (Length(S) < 80) do
    begin
      Read(BF, BBB);
      S := S + IntToStr(BBB) + ',';
    end;
    if Eof(BF) then
      Delete(S, Length(S), 1);
    Writeln(F, S);
  end;
  CloseFile(BF);
  Writeln(F, ');');
  Writeln(F);
  Writeln(F, 'procedure SaveToFile(FileName:String);');
  Writeln(F);
  Writeln(F, 'implementation');
  Writeln(F);
  Writeln(F, 'procedure SaveToFile(FileName:String);');
  Writeln(F, 'var F:File of Byte;');
  Writeln(F, ' i:integer;');
  Writeln(F, 'begin');
  Writeln(F, 'AssignFile(F,FileName);');
  Writeln(F, 'ReWrite(F);');
  Writeln(F, 'for i:=0 to FileSize-1 do Write(F,FileData[i]);');
  Writeln(F, 'CloseFile(F);');
  Writeln(F, 'end;');
  Writeln(F);
  Writeln(F, 'end.');
  CloseFile(F);
end;

У нас принято оформлять код специальным тегом. Кнопка #. Модератор