tuan2 dan master2....... aku dapat source code untuk meletakkan string ke file exe, tapi aku ndak tau gimana caranya untuk menghapus tu string yg udah ku masukkan, ada yg tau cara hapusnya.......? berikut aku sertakan source untuk meletakkan string ke file EXE :

function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
  aStream: TFileStream;
  iSize: Integer;
begin
  Result := False;
  if not FileExists(AFileName) then
    Exit;
  try
    aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
    MemoryStream.Seek(0, soFromBeginning);
    // seek to end of File
    // ans Ende der Datei Seeken
    aStream.Seek(0, soFromEnd);
    // copy data from MemoryStream
    // Daten vom MemoryStream kopieren
    aStream.CopyFrom(MemoryStream, 0);
    // save Stream-Size
    // die Streamgröße speichern
    iSize := MemoryStream.Size + SizeOf(Integer);
    aStream.Write(iSize, SizeOf(iSize));
  finally
    aStream.Free;
  end;
  Result := True;
end;
//------------------------
procedure TForm1.SaveClick(Sender: TObject);
var
  aStream: TMemoryStream;
begin
  aStream := TMemoryStream.Create;
  Memo1.Lines.SaveToStream(aStream);
  AttachToFile('Test.exe', aStream);
  aStream.Free;
end;

tolong ya.....! pleaseeeeeeeeesss !!.... --tank's from CinmiBoy, I am Detektif from Ternate City, you now ?----

Mas bisa lakukan proses attach file sekali lagi dengan tidak menyertakan data streamnya. saya dah coba bisa koq semoga berhasil

function AttachToFile(const AFileName: string ; MemoryStream: TMemoryStream): Boolean;
var
 aStream: TFileStream;
 iSize: Integer;
begin
 Result := False;
 if not FileExists(AFileName) then
  Exit;
 try
  aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
  MemoryStream.Seek(0, soFromBeginning);
  aStream.Seek(0, soFromEnd);
  aStream.CopyFrom(MemoryStream, 0);
  iSize :=  SizeOf(Integer);
  aStream.Write(iSize, SizeOf(iSize));
 finally
  aStream.Free;
 end;
 Result := True;
end;

@avatar_eng: code untuk restore / menghapus berdasar fungsi AttachToFile:

function RemoveFakeData(const AFileName: string): Boolean;
var Src: TFileStream;
  xSize: Integer;
begin
  Src:= TFileStream.Create(AFileName, fmOpenReadWrite or fmShareExclusive);
  try
    // read fake data size
    Src.Seek( SizeOf(Integer), soFromEnd);
    Src.Read(xSize, SizeOf(Integer));
    
    // check avaliable fake data (is fake data size less than total stream size?)
    Result:= (xSize > 0) and (xSize < Src.Size);
    if Result then
    begin
      // calculate fake data size
      xSize:= xSize + SizeOf(Integer);
      // trim original stream to its original size
      Src.Size:= Src.Size - xSize;
    end;
  finally
    Src.Free;
  end;
end;

code not tested, writen on-the-fly by delphi-id IDE :mrgreen:

wah.....tank's..... ta' coba dulu ya, ntar klu ada masalah gua balik lagi........OK ----and sebelumnya gua mau komentar dikit........ untuk...mas atau mba' ya ? (EkoIndri)..... :P :P :P he...he...he... perasaan tu kode untuk nambah string, jadinya walaupun data streamnya dikosongin tetap aja string yang udah ada ndak kehapus malah nambah kotak2 alias spasi dibawahnya, itu hanya perasaan gua doang....he...he...he benar ngak ya.....? ntar ta' coba dulu aja dech............... maaf...... udah lancang........ ----------------- Cinmi_Boy-I am Detektif From Ternate City--you now !--

he......3x ini mas mas.... memang kalau dilihat dari ukuran filenya itu nambah string yang seolah-olah menghapus string Silahkan coba cara yang diberikan oleh mas Indra Gunawan

wah.....sory gue telat balasnya..... ..gini loh... tu source udah ku coba and tidak eror, tapi masalahnya tidak ada pengaruh apa2 pada filenya, alias tetap tidak bisa menghapus stringnya..... gimana kira2 ya.....? bantu lagi dong.....pleaseeeeessssss ! he...he...

ekstrak bagian non-string ke file baru

jangan lakukan bagian komentar "trim original..." . seperti pebbie bilang buat copy baru... lakukan peng-copy-an stream sebesar Size:= Src.Size - xSize;