bir dll yardımıyla kapat butonu

[kubra_21]

S.aleykum arkadaşlar
ben bir dll oluşturuyorum. bu dll le de bir procedure var bu procedure yi form içine eklediğim bir button vasıtasıyla çağırıyorum. butona basınca yeni bir form açılacak ayrıca form üzerinde bir label ve bir button olacak.bu button a basınca uygulama kapatılacak ama olmuyo. bunu dll içerisinde nasıl bir kodla belirtmeliyim yardımcı olursanız sevinirim. teşekkürler.....

[rsimsek]

Yazdığın DLL ın içindeki procedure de kod içinden formu oluşturabilirsin.

Kod: Tümünü seç

var
  frmBekle: TForm;
//.....
  try
      frmBekle := TForm.Create(Application);
      frmBekle.Name := 'frmBekle';
      frmBekle.Caption := '';
      frmBekle.Width := 250;
      frmBekle.Height := 60;
      frmBekle.Position := poOwnerFormCenter;
      frmBekle.BorderStyle := bsToolWindow;
//      frmBekle.FormStyle := fsStayOnTop;
      frmBekle.Color := clYellow;

      with TLabel.Create(Application) do
      begin
        Name := 'lblBekle';
        Parent := frmBekle;
        Caption := 'Lütfen bekleyiniz..';
        Left := 0;
        Top := 5;
        Width := frmBekle.Width;
        Height := frmBekle.Height;
        Alignment := taCenter;
        Font.Color := clRed;
        Font.Size := 14;
        Font.Style := [fsBold, fsItalic];
      end;
      frmBekle.Visible := True;
      frmBekle.Update;
    except
    end;

Ayrıca parent ve diğer özelliklerini atayıp buton ve label da oluşturabilirsin. Sorunun ikinci kısmına cevap olarak da bir procedure den programı kapatmak için Application.Terminate demen yeterli olacaktır

[kubra_21]

hocam sizin dediğiniz eğer bu ise çalışmıyo acaba neden proceduru tanımıyo onclick olayı?
xbutton.OnClick:=Kapat;

procedure kapat;
begin
Application.Terminate; end;
end.

[rsimsek]

Yazdığın DLL içindeki procedure u kullanacağın formda

interface kısmında;

Kod: Tümünü seç

procedure Proc_deneme(Param: string); stdcall;

şeklinde tanımlayıp, daha sonra;

implementation kısmında da;

Kod: Tümünü seç

procedure Proc_deneme;   stdcall; external 'd:\proje\DLL_Deneme.dll';

tanımladın mı

[kubra_21]

hocam bu interface kısmına yazdığım procedur şu

procedure kapat(Param: string); stdcall;

imlementation kısmına
procedure kapat; stdcall; external 'c:\DllDeneme\Dll\'; yazdım

ama yine sorun devamö ediyo

[rsimsek]

external 'c:\DllDeneme\Dll\'; tırnak içinde yazdığın DLL in yolu ve adını tam yazman lazım

[tuanna]

bu iş için neden dll onu anlamadım?

[kubra_21]

çünkü hoca böle bi ödeve verdi

ilginize teşekkürler...

[aslangeri]

s.a.
dll e parametre olarak application un handle ını gönderirseniz belki olur.
kolay gelsin.

söylemeden geçemiyeceğim

çünkü hoca böle bi ödev verdi

kırdı beni. Allah razı olsun.