Açılan bir programın simge durumunu değiştirme

[brs]

Selam, Bir programın ekran durumunu (sw_showmaximized veya SW_Normal) gibi açarız bu durumu kullanıcıya bırakmak istiyorum,

Kod: Tümünü seç

procedure TForm1.AcClick(Sender: TObject);
var
simege: String;
begin
Simge:='SW_Normal';
ShellExecute(0, 'open', 'xxxx', PChar('yyyyy'), '', Simge); 
end;

Sitring veya PChar gibi bir çok fonksiyon dedim olmadı, araştırdım bulamadım da bu durumda ne kullanabilirim acaba...

[tayipk]

slm;

var
simege: String;

bu kısım ile

Simge:='SW_Normal';
ShellExecute(0, 'open', 'xxxx', PChar('yyyyy'), '', Simge);

bu kısım arasında Bir farklılık görebiliyormusun. ben Değişkeni Simege olarak tanıtıp simge olarak kullanmaya çalıştığını görüyorum. eğer buraya yazarken bir harf hatası oluştu ise sana önerim şudur değişkeninin tipi integer yapıp fotoğraftaki gibi SW_... ların numeric değerlerini ata ve onu kullanıp denermisin.
http://s8.postimg.org/t3huusohh/Ads_z.png

[brs]

Cevap İçin teşekkür ederim integer yaptım dediğiniz gibi oldu...

[tayipk]

rica ederim Başarılar