Hirdetés
- Okosóra és okoskiegészítő topik
- Nokia 8 Sirocco - tudja, honnan fúj a szél
- Honor Magic6 Pro - kör közepén számok
- iPhone topik
- Poco F8 Ultra – forrónaci
- Telefonjavítás, szerviz
- Samsung Galaxy S4 - negyedik, bővített kiadás
- Milyen okostelefont vegyek?
- Ezek a OnePlus 12 és 12R európai árai
- A lapkakészlet és az akku különbözteti meg a Motorola Edge 60 és Edge 60 Pro-t
Új hozzászólás Aktív témák
-
#1201
Drótszamár
őstag
wolffy
#1199
Drótszamár
őstag
-
wolffy
aktív tag
Hát nem egy nagy programírás, de a probléma megoldására dobtam még egy ADOTablet-t ami egy külön táblára hivatkozik amit a lehetséges típusnevekkel töltöttem fel. Így tuti, hogy egy név csak egyszer jelenik meg.
Én jobb megoldást nem tudtam rá. (Egyéni szegénység tudom.) -
-
#1045
Drótszamár
őstag
wolffy
#1044
Drótszamár
őstag
Ha jól emléxem szerkesztési időben lehet állítani a gridben a színeket --> valszeg futási időben is lehet
Monnyuk ez már nem annyira triviális feladat, de asszem a grid sorain keresztül el lehet érni az adatokat is. Tehát pl az akt sorban lévő értékeket. Na ha sikerül kiolvasni, és futási időben is lehet szerkeszteni a grid tulajdonságait, akkor már könnyű dolgod lessz.
A gyakorlati megvalósításban sajna nem tudok segíteni. régen volt már az adatbázisos bohóckodás, és utáltam is mint a szart.... legalább annyira mint az sql-t papíron. -
sarti
csendes tag
A delphiben van egy olyan parancs, ami megadja az éppen futó alkalmazásod elérési útvonalát. Ha a CD-ről indítod a programodat, akkor az kell neked. Talán getcurrentdir (aplication.exename) . Ez kell értékül adni egy változónak. Abba kerül az útvonal, aztán már kedved szerint lecsupaszíthatod a kívánt szintig, egészen a gyökérig. (Ha a cd-n lévő progi a cd gyökeréből indult, akkor valami ilyesmit ad vissza:d:\progi.exe Nincs előttem a delphi, de talán segítettem.
[Szerkesztve]
[Szerkesztve] -
_AnTi_
tag
Valószínűleg egy kis tökéletesítésre szorul, de ezen el tudsz indulni. Egy edit mezőben van a futtatandó program elérési útja és neve.
implementation
uses shellAPI;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
startupinfo : Tstartupinfo;
processinfo : Tprocessinformation;
command : array [0..512] of Char;
success : boolean;
begin
strpcopy(command, edit1.text);
fillchar(startupinfo, sizeof(startupinfo), #0);
startupInfo.wShowWindow:=SW_SHOWNORMAL;
startupinfo.cb:=sizeof(startupinfo);
startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
Success:=CreateProcess(nil, command, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, Startupinfo, Processinfo);
{ if success then
label2.Caption:='Minden ok!'
else
label2.Caption:='Valami nem jó!';}
end;
Sok Sikert!
Én jobb megoldást nem tudtam rá. (Egyéni szegénység tudom.)
Új hozzászólás Aktív témák
- TCL LCD és LED TV-k
- Okosóra és okoskiegészítő topik
- Apple MacBook
- Víz- gáz- és fűtésszerelés
- Nokia 8 Sirocco - tudja, honnan fúj a szél
- Honda topik
- Kormányok / autós szimulátorok topikja
- Azonnali fáradt gőzös kérdések órája
- EU-s vám vethet véget a nagyi temus vásárlási lázának
- Több száz játékban kezdi meg karrierjét az FSR Redstone
- További aktív témák...
- Microsoft Surface Prémium minőségi Érintős Laptop Ultrabook 13,5" -65% i5-7300 8/256 Tűéles Retina
- Samsung Galaxy S24 Ultra - független, garanciás, hibátlan
- Eladó iphone 14 256 GB csillagfény
- iPhone SE 2020 gyári független új akku
- Itt az igazi AJÁNDÉK ÁR! - ÚJ, bontatlan Macbook Air 16/256GB AZONNAL! - Midnight
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- iKing.Hu-Samsung Galaxy S25 Ultra Titanium Black 12/256 GB-karcmentes Garancia 2028. 08. 23-ig
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- Samsung Galaxy S25 Edge Titanium Jetblack 12/256 GB Használt, karcmentes 6 hónap garancia
- Eladó igazi ritkaság! LG G7 Thinq 4/64GB / 12 hónap jótállással!
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest