dosya sildirmek ama farklı kolay ama bulamadım :(

[notname]

selamunaleykum

sorunum aslında basit ama forumda bulamadım daha dogrusu bulmustum ama şimdi hatırlayamadıgım için yazmak istedim.

sorun şu

ornegin: abc.dat isimli bir dosya var ve bu daima system32 klasöründe oluyor farzedelim ben bu dosyayı programımla silmek istiyorum ama bi sorun var

deletefile('c:\windows\system32\abc.dat') bu komut dosya c:\ de ise siliyor ama ya diger suruculerinde windows yukluyse yani ben istiyorum ki hangi surucude windows\system32 varsa o dosyayı ordan silsin

yardım edicekler için şimdiden teşekkürlerimi sunarım...

[ender_arslanturk]

Aleyküm Selam

Windows System Klasörlerinin Alınması ;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  a : Array[0..144] of char;
begin
  GetWindowsDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
  GetSystemDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
end;

burdan yola çıkarak Deletefile komutunu deniyebilirmisin.....

[notname]

saolasın arkadasım ama yapamadım

deletefile deyip getwindowsdirectory ve systemdirectory'de bulunan bilmemne dosyasını sildiremedim biraz daha yardımcı olabilirminisz

[notname]

cevap yokmu

[ender_arslanturk]

Merhaba

viewtopic.php?p=59463#59463

bu adresten componenti yükledikten sonra

Kod: Tümünü seç

Deletefile(Bilgi1.SystemFolder+'\abc.dat');

Başarılar,

[notname]

çok saol arkadaşım daha kolay bi yolunu bulup yaptım ama bi sorunum daha cıktı bu sefer

Kod: Tümünü seç

var
  PWindowsDir: array [0..255] of Char;
  PsystemDir: array [0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(PWindowsDir,255);
  GetSystemDirectory(PsystemDir, MAX_PATH);

  deletefile(strpas(PsystemDir) + '.\abc.txt');
  deletefile(StrPas(PWindowsDir) + '.\abc.txt');

 end;

bu kod ile yaptım sorunsuz şekilde hangi dizinde ise siliyo ama bi sorunum daha peki bunu winexec ile nasıl kullanabilirim

örneğin

Kod: Tümünü seç

WinExec('C:\WINDOWS\CONTROL.EXE DESK.CPL', sw_ShowNormal);

bu sefer bunu yapmak istiyorum görüntü özelliklerini açmak istiyorum ama sorun budur ki herkes c:\windows kullanmıyo

bu şekil denedim olmadı acaba nasıl yapabilirim

Kod: Tümünü seç

WinExec(StrPas(PWindowsDir) + '.\CONTROL.EXE DESK.CPL', sw_ShowNormal)

yardımlarınızı bekliyorum.

[ender_arslanturk]

Merhaba

Neden winexec olarak arama yapmıyorsun aynı zamanda http://www.delphiturkiye.com adresinde ipucu ve diğer kısımlara göz atmalısın.

Başarılar,

[notname]

çok hızlısın arkadaşım bi arama yapıp sonuçları burdan belirticem olmassa bu konudan dewam ederiz

sagolasın arkadaşım iyi çalışmalar.

[ender_arslanturk]

Merhaba

yazmak mesele değil, Sevgili adminimizi kızdırmayalım hususiyet hassas tikkat etmek lazım. Ayrıca bu konular yazdığım gibi çok konuşuldu neden arama yapıp gayret etmiyorsun dime.

Kolay gelsin...
Başarılar,