Jak wklejić ?żródło do programu?

0

Unity do exe (aktualne) i żeby można było je przejrzeć w jakimś edytorzez zasobow?--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

0

Nie wiem dokladnie jak cos takiego zrobic co napisales ale wiem jak mozna zrobic cos moze troche podobnego. :-) Mozesz dokleic text do exeka. Bedzie on wtedy na koncu pliku i jak otworzysz plik exe w jakims edytorze textowym to bedziesz mial na poczatku krzaki a na samym koncu bedzie text. :-) Jak cos takiego ci insteresuje to napisz podam kodzik ;) --pozdrawiam PEDROS {hello}
Delphi6

0

Próbowałeś zapisać je jako pliki textowe i dołączyć do zasobów?

0

TY Lamer nie przesadzaj

0

Tu masz zrodlo potrzebne do doklejenia textu z memo1 do jakiegos pliku. Zebys mogl dokleic textmusisz napisac sobie drugi program ktory bedzie ten text dokleial i wyciagal. Wiec do dziela: :-)

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 := MemoryStream.Size + SizeOf(Integer);
aStream.Write(iSize, SizeOf(iSize));
finally
aStream.Free;
end;
Result := True;
end;

function LoadFromFile(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, fmOpenRead or fmShareDenyWrite);
aStream.Seek(-SizeOf(Integer), soFromEnd);
aStream.Read(iSize, SizeOf(iSize));
if iSize &gt aStream.Size then
begin
aStream.Free;
Exit;
end;
aStream.Seek(-iSize, soFromEnd);
MemoryStream.SetSize(iSize - SizeOf(Integer));
MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
MemoryStream.Seek(0, soFromBeginning);
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;

procedure TForm1.LoadClick(Sender: TObject);
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
LoadFromFile('Test.exe', aStream);
Memo1.Lines.LoadFromStream(aStream);
aStream.Free;
end;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 := MemoryStream.Size + SizeOf(Integer);
aStream.Write(iSize, SizeOf(iSize));
finally
aStream.Free;
end;
Result := True;
end;

function LoadFromFile(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, fmOpenRead or fmShareDenyWrite);
aStream.Seek(-SizeOf(Integer), soFromEnd);
aStream.Read(iSize, SizeOf(iSize));
if iSize &gt aStream.Size then
begin
aStream.Free;
Exit;
end;
aStream.Seek(-iSize, soFromEnd);
MemoryStream.SetSize(iSize - SizeOf(Integer));
MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
MemoryStream.Seek(0, soFromBeginning);
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;

procedure TForm1.LoadClick(Sender: TObject);
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
LoadFromFile('Test.exe', aStream);
Memo1.Lines.LoadFromStream(aStream);
aStream.Free;
end;

Jak chcesz zeby nikt nie mogl odczytac tych zrodlem to mozesz je jeszcze zaszyfrowac :-)--pozdrawiam PEDROS {hello}
Delphi6

0

No tu by sie przydala modyfikacja postow. :-) Nie wiem dlaczego ale kod wkleil sie mi 2razy ten sam kawalek. Tam po procedurze LoadClick jest juz koniec. Tamta fukcja jakos sama tam weszla. Jak tu jest ktos kto jest w stanie to zmienic to poprosilbym o poprawke:-)--pozdrawiam PEDROS {hello}
Delphi6

0

Dzięki za pomoc PQ
--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0