exe oluşturmakla ilgili bir sorun...

[maqro]

s.a

şöle bir projem war;

2 formum war form 1 deki olujtur butonuna basınca form 2 exe halinde masaüstünde oluşuyor. buraya kadar herşey tamam... form 1 deki memo içindeki yazıyı form 2 deki memo1 e aktarıyorum butaya kadarda herşey tamam

bi unit ekledim içine

unit Unit3;

interface

procedure savemyself(Fn:string;FormNo:String);

Type
TExeMarker = Packed record
FormMark : string[20];
FormNo : String[5]
End;
Const
MyMarker : TExeMarker = (FormMark:'deneme';Formno:'1');

implementation
Uses Forms,SysUtils, Unit4, Unit2, Unit1;


procedure SaveMySelf(Fn:string;FormNo:String);
Var
fx : File;
Buf: String;
i : Integer;
Begin
AssignFile(fx,Application.ExeName);
FileMode:=fmOpenRead+fmShareCompat;
Reset(fx,1);
Setlength(Buf,FileSize(Fx));
BlockRead(Fx,Buf[1],Length(buf));
CloseFile(fx);
i:=Pos(MyMarker.FormMark,Buf);
Buf[i+20]:=Char(Length(FormNo));
Move(FormNo[1],Buf[i+21],Length(FormNo));
AssignFile(fx,Fn);
ReWrite(fx,1);
BlockWrite(fx,Buf[1],Length(Buf));
CloseFile(Fx);
End;end.


YAZDIM
VE FORM 1 DEKİ OLUJTUR BUTONUNUN ALTINA

savemyself('C:\Documents and Settings\All Users\Desktop\DENEME.exe','2'); YAZDIM.

BU KOMUTLA FORM 2 EXE HALİNDE MASAÜSTÜNDE OLUŞTURULUYO FAKAT

FORM1 DEN FORM2 YE AKTARDIĞIM YAZIDAN ESER YOK BUNUN NEDENİ NEDİR?

[DERSTE HOCAYA SORDUM DERSTEN KAÇTI ]

[maqro]

PARDON ABİLERİM UNUTMUŞUM BİRDE


PROJECT / / / VİEW SOURCE ALTINIDA ŞÖYLE DÜZENLEDİM

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas',
Unit4 in 'Unit4.pas';

{$R *.res}

begin

Application.initialize;

if MyMarker.FormNo='1' Then
Application.CreateForm(TForm1, Form1);


Application.CreateForm(TForm2, Form2);

Application.Run;

end.

[fduman]

Form1 deki Memo içindeki yazıyı Form2 deki Memoya nasıl aktarıyorsun anlamadım. Gönderdiğin kodlarda bu çeşit bir işlem yok. Yaptığın, Exe dosyasını MyMarker sabitini değiştirerek kopyalamak. Başka birşey yapmıyorsun.

Memo resource'ları ile ilgili işlemin nerede?

[maqro]

form 1 deki memonun içindeki yazıyı,

form2.memo1.text:=form1.memo1.text;

komutu ile aktarıyorum üstadım. doru demişin kodların arasında bu yok pardon çünkü bunu bajka bi butondan yapıyorum ondan yazmayı unutmuşum. saygılarımla...

[maqro]

peki şöyle bişe istesem

form1 deki memo1 in içindeki yazıyı form2 deki memo1 in içine

form2.memo1.text:=form1.memo.text;

komutu ile yolladıktan sonra form2 yi exe halinde masaüstünde nasıl oluşturabilirim.

[notname]

hocam diger exe'yi cıkartıgın zaman exe'ye yazması için const olarak stringler girmen gerekli ve procedurler ile bu stringleri cıkartıgın dosyaya yazdırman gerekli baya bi zorlar ama yaparsın biraz ugrasırsan

[maqro]

bana bir örnek gösterebilirmisin kod olarak okadar fazla bir bilgim yok delphi huususnda yeni ögrenmeye başlıyorum.