winexec fonksiyonunun kullanımı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- sarp_halit
- Üye
- Mesajlar: 241
- Kayıt: 17 Ara 2003 04:30
- Konum: Cennet Fethiye
- İletişim:
winexec fonksiyonunun kullanımı
merhaba arkadaşlar.
winexec komutu kullanarak windows un sistem klasörlerindeki programları nasıl çalıştırabilirim. bir fonksiyon olacaktı. windirectory miydi neydi? yani programda kullanıcı hesapmakinesi çalıştırmak istediği zaman windows un sürümlerine göre sistem dizinine gidip ilgiliprogramı çalıştıracak.
şimdiden teşekkür ederim.
winexec komutu kullanarak windows un sistem klasörlerindeki programları nasıl çalıştırabilirim. bir fonksiyon olacaktı. windirectory miydi neydi? yani programda kullanıcı hesapmakinesi çalıştırmak istediği zaman windows un sürümlerine göre sistem dizinine gidip ilgiliprogramı çalıştıracak.
şimdiden teşekkür ederim.
Fethiye den herkese sevgiler ...
X))@:>
X))@:>
aradığınız program çalıştırmak ise
viewtopic.php?p=11252#11252
deki mesajı okuyun.
yok aradığınız windows dizininin yeri ise başlığı daha anlaşılır bir şekilde değiştirin.
bu işe yarasada jedi kütüphanesinde daha stabil çalışan kodlar olması lazım.
viewtopic.php?p=11252#11252
deki mesajı okuyun.
yok aradığınız windows dizininin yeri ise başlığı daha anlaşılır bir şekilde değiştirin.
Kod: Tümünü seç
function WindowsDirectory : String;
var
Buffer : Array[0..Max_path] of char;
begin
FillChar(Buffer,Max_Path + 1, 0);
GetWindowsDirectory(Buffer,Max_path);
Result := String(Buffer);
if Result[Length(Result)] <> '\' then Result := Result + '\';
end;
.-.-.-.-.-.-.-. ^_^
- sarp_halit
- Üye
- Mesajlar: 241
- Kayıt: 17 Ara 2003 04:30
- Konum: Cennet Fethiye
- İletişim:
her ikisi de
hocam öncelikle cvptan ötürü teşekkür ederim. benim amacım her ikisi yani windows root dizinindeki herhangi bir programı çalıştırmak. hesap makinesi ya da notepad gibi programlar işte.
Fethiye den herkese sevgiler ...
X))@:>
X))@:>
hocam mege arkadaşımızın verdiği link tam işinizi görecektir. Okudunuzmu bilmiyorum.
Oradaki işinizi görecek kod:
eğer daha farklı birşey yapacaksanız biraz daha açık yazın.
Oradaki işinizi görecek kod:
Kod: Tümünü seç
WinExec(pchar('c:\windows\NOTEPAD.EXE C:\iplog.txt'), SW_SHOWNORMAL);
Fikren emir almazsan, esir olursun ikisinin ortası yoktur.
tek değil iki fonksiyon
öncelikle kullanılan windows un system klasörünü tespit eden bir fonksiyon
bulunan sonucuda şöyle çalıştırabilirsiniz
iyi çalışmalar
Kod: Tümünü seç
function bulsistemdizini: string;
var
dizin: array [0..max_path] of char;
begin
GetSystemDirectory(dir, max_path);
sonuc:=StrPas(dizin);
end;
Kod: Tümünü seç
WinExec(sonuc, SW_SHOWNORMAL);
sorun, artık sorun değil...
veya
veya sadece şunuda yapsan da çalışır çünkü system klasörüne path tanımlıdır default olarak.
olay bu kadar kolay
Kod: Tümünü seç
WinExec('NOTEPAD', SW_SHOWNORMAL);
WinExec('CALC', SW_SHOWNORMAL);
sorun, artık sorun değil...
Merhaba arkadaşlar,
sanırım sorunuma en uygun başlık burada.
ShellExecute ya da winexec kullanarak bir program çalıştırmam gerek.
Ancak programın exe adı da sürümüne göre değişiyor.
örneğin X05.exe-x051.exe gibi.. Kullanıcının makinesindeki x programının sürümü saptayarak ona göre winexec kod satırı yazabiliriz miyiz?
sanırım sorunuma en uygun başlık burada.
ShellExecute ya da winexec kullanarak bir program çalıştırmam gerek.
Ancak programın exe adı da sürümüne göre değişiyor.
örneğin X05.exe-x051.exe gibi.. Kullanıcının makinesindeki x programının sürümü saptayarak ona göre winexec kod satırı yazabiliriz miyiz?
Bilgi çoğaldıkça krallar ölür