Yorumları: 669
Konuları: 73
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.544
Programcı
Sevgili meslektaşlarım,
bir konuda yardımarınızı rica edeceğim. Yazmış olduğum 12 farklı program var ve sadece exe olarak yapılmış durumda. Ancak tüm bu pogramları bir araya getirerek, tek bir exe altında çalışmasını düşünüyorum. Yani tek exe de menüler oluşturup, bu menülerle tüm programları çalıştırmak istiyorum. Ancak, ilgili programı sadece yetkili user açabilmeli. Konunun içinden bir türlü çıkamadım. Exeleri shell ile çalıştırmak istemiyorum çünkü, açık exelere tüm personeller erişecek bu sefer. Son bir bilgi, biçbir programımda kullanıcı adı şifre girişi yoktur. Tıkla çalıştır şeklinde tasarlanmıştır.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 107
Konuları: 19
Kayıt Tarihi: 26-09-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 625
Acemi
Bence KillTask ile sürekli bu 12 programı kapat yetkili bir kullanıcı açtıysa programı kontrol edip KillTask ile kapatmayı durdur.
Program bilgisayarda sürekli çalışacak şekilde ve hiç kapatılamayacak şekilde ayarlarsın hatta birbirini kontrol eden iki aktif program ile bu sayede yetkisiz erişimleri engellemiş olursun.
Bir ara buna benzer bir şey yapmıştım.
Sadece bir fikir tabi bu ?
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
Çalıştırmak için de : ShellExecute işini görecektir.
Faydalanılmayan bilgi, harcanmayan ve hiç kimseye hayrı dokunmayan define gibidir.
Hz. Muhammed (sav.)
Yorumları: 231
Konuları: 12
Kayıt Tarihi: 06-07-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.178
Programcı
05-01-2019, Saat: 08:40
(Son Düzenleme: 07-01-2019, Saat: 04:01, Düzenleyen: ssahinoglu.)
Programlar arası haberleşme yapabilirsin. Ana programdan diğerlerine ortak EVENT kullanımı uygundur.
İstemediğin davranış olursa bu haberleşme sayesinde programlar kendilerini kapatabilir.
Farklı exeleri tek form içinde birleştirmek için de SETPARENT apisi işi görecektir.
Yorumları: 669
Konuları: 73
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.544
Programcı
Herpinize ilginizden dolayı çok teşekkür ederim. Tüm cevapların içeriğini deneyerek en uygun olanı bulmaya çalışacağım.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 68
Konuları: 7
Kayıt Tarihi: 14-08-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 199
Başlangıç
Parametrelerin birini örneğin o anki saatin numerik değerini şifreli (base64, sha256 vs) biçimde göndermekte fayda var. Çünkü komut satırı görev yöneticisinde görülebiliyor. Bu olmazsa elle de açılabilir.