TFileListBox içinden çeşitli komutlar için...

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
webaytek
Üye
Mesajlar: 377
Kayıt: 23 Haz 2004 10:58

TFileListBox içinden çeşitli komutlar için...

Mesaj gönderen webaytek »

TFileListBox içinden dosyayı açmak - silmek - kopyalamak - ismini değiştirmek ve hatta değişik programlar kullanarak düzenlemek için bir pop-up menu yapmak istiyorum bi zahmet yardım eder misiniz!!!
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7603
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Merhaba,

öncelikle aramıza hoşgeldiniz.

İstediğiniz kodlara sitede ipuçları kısmından ve forumda Arama kısmından aratarak ulaşabilirsiniz.

Kolay gelsin.
Kullanıcı avatarı
webaytek
Üye
Mesajlar: 377
Kayıt: 23 Haz 2004 10:58

Mesaj gönderen webaytek »

Aslında biçok api ile açlışabiliyorum ancak benim asıl derdim bir edit TEditBox içinden komut çağırmak ile ilgili yani

WinExec('start edit1.text ', SW_SHOWNORMAL);


gibi abuk bişiy yazmam lazım ama beceremiyorum.
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7603
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

WinExec eski bir API'dir. Bunun yerine ShellExecute kullanın.

Kolay gelsin.
P206
Kıdemli Üye
Mesajlar: 395
Kayıt: 17 Haz 2003 12:36
Konum: İstanbul

Mesaj gönderen P206 »

Yada

Kod: Tümünü seç

var
StartupInfo : TStartupInfo;
ProcessInformation : TProcessInformation;
begin
        FillChar(StartupInfo, sizeOf(TStartupInfo), #0);
        FillChar(ProcessInformation, sizeOf(TProcessInformation), #0);
        StartupInfo.cb:=sizeof(Tstartupinfo);
        StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
        StartupInfo.wShowWindow:=SW_hide;
        CreateProcess(nil, PChar('command.com /c dir /S > c:\dirla.txt '),
        nil, nil, False, 0, nil, nil,
        StartupInfo, ProcessInformation);
gibi CreateProcess ilede yapabilirsin. WinExec yerine ...
Cevapla